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Abs  tract 

In  recent  years  the  Air  Force  has  developed  a  standard 
programming  language,  J73,  for  use  in  embedded  computer 
systems.  Now  that  the  Air  Force  has  a  considerable 
investment  in  systems  that  are  currently  being  developed 
with  J73,  the  Department  of  Defense  has  selected  a  high 
order  programming  language,  Ada,  that  will  become  the 
standard  for  programming  embedded  computer  systems 
throughout  the  Department  of  Defense.  Also  under 
development  is  the  definition  of  a  support  environment  for 
Ada,  One  of  the  tools  of  this  support  environment  should  bo 
a  translator  that  will  produce  Ada  source  programs  from  J73 
source  programs  (Ref  4). 

The  subject  of  this  research  project  was  the  design  and 
development  of  a  Jovial(J73)  to  Ada  Translator  System. 
(JATS) .  The  resulting  system  accepts  J73  programs  and 
produces  equivalent  Ada  programs  to  tue  extent  possibl^j 
while  identifying  segments  of  J73  code  that  were  not 
translated.  This  project  made  use  of  language  parsing 
techniques  and  various  data  structures  to  support  the 
translation  process .  Several  problem  areas  are  identified 
with  possible  solutions.  The  translator  system  should  be  a 
useful  tool  in  the  transition  from  J73  to  Ada. 


I  Introduccioa 


In  recent  years  the  Air  Force  and  Department  of  Defense 
(DoD)  have  initiated  efforts  to  adopt  standard  programming 
languages  in  order  to  reduce  the  cost  of  software 
development  for  embedded  computer  systems.  Embedded 
computer  systems  are  an  integral  part  of  a  larger  weapo  i 
system,  such  as  a  flight  control  computer  in  an  aircraft. 
Some  of  these  embedded  systems  are  so  unique  and  specialize^i 
that  none  of  the  programming  languages  approved  for  use  in 
Air  Force  systems  have  been  appropriate  for  program.-un^ 
these  systems.  As  a  result,  new  programming  languages  hav.j 
been  introduced  which  compounds  the  problems  of 
development.  In  an  effort  to  reduce  software  developmuH 
costs  the  Air  Force  has  developed  J7d  which  is  a  derivaiice 
of  Jovial,  Jules’  Own  Version  of  the  Internat  ional  Algebrale 
Language  (Ref  1 :39).  As  a  result,  the  Air  Force  has  a 
considerable  investment  in  systems  that  are  currently  unvhj:- 
development  with  J73 , 

In  a  somewhat  later  effort,  the  DoD  also  initiated  the 
development  of  a  DoD  standard  high  order  language  for 
programming  embedded  computer  systems.  In  April  1979,  DoD 
selected  Ada  as  the  language  and  in  July  1980  released  a 
proposed  standard  for  the  language.  In  the  near  future,  Ada 
is  supposed  to  replace  J73  on  the  list  of  approved 
programming  languages  for  embedded  computer  systems 
(Ref  13).  Also  currently  under  design  is  the  definition  of 
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a  support  environment  for  Ada  which  should  include, 
ocher  software  Cools,  translators  for  present  languages 
(Ref  4)  . 

Althou^^h  direct  translation  of  existing  software  r.c;  ■ 
not  produce  production  quality  software,  a  trai-jslator  whic 
performs  the  bulk  of  the  translation  can  still  be  a  valu-^bK 
aid  in  the  transition  to  a  new  programming  lanj,ua^e.  It  ca  i 
save  valuable  time  by  reducing  tiie  a'nount  oi  hand 

translation  that  is  required  and  identifying  those  arc -s 
that  do  require  manual  translation .  The  Avionics  Laboratni';; 
of  the  Air  Force  Wright  Aeronautical  LaboraLnries  ( A FA/iL.' A.\) 
has  a  requirement  for  a  J7J  to  Ada  tr-inslation  system  which 
should  directly  translate,  to  the  extent  possible,  J7y 
programs  into  an  equivalent  Ada  program  arid  identity  t'u^so 
segments  of  code  that  were  not  fully  translatedi. 

Tne  purpose  of  tills  research  prcjcci  was  to  design  and: 
develop  a  translator  syste'n  that  would  produce  equivalen: 
Ada  programs  from  J73  proy,rans.  The  system,  called  JATS  tor 
Jovial(J73)  to  Ada  Translation  System,  is  a  software  producf 
which  was  implemented  on  the  AFr^AL/AA  DecSyslen-10  and 
produces  Ada  text  files. 

The  majority  of  the  work  in  producing  JATS  was  in  tiie 
software  design  and  development.  There  are  three  functional 
units  of  JATS:  (1)  parser  module,  (2)  translation  module, 
and  (3)  prettyprint  module.  The  parser  module  processes  t’no 
input  language  and  constructs  a  parse  tree,  an  internal 
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representation,  of  the  prograr..  Tne  translation 
manipulates  the  parse  tree  to  construct  an  equivaleiK  Ao.; 
program.  The  prettyprint  module  uses  tne  results  of  I'n. 
translation  to  produce  a  formatted  text  file. 

The  parser  was  developed  from  a  software  pac  K.  Cl  ^  c  t  r  o  ’ 
Lawrence  Livermore  National  Laboratory  (LLNL;  (Kef  1  f . 
This  package  allov;s  the  user  to  develo^)  a  table-dr i\m 
parser  from  a  specification  oi  the  language  syntax  wit.: 
which  the  user  can  develop  a  language  processor.  For  t::^.- 
project,  the  parser  is  used  to  construct  a  trcL, 

tree  structure  representing  the  input  progr.r  . 

The  translation  routines  process  thu  par^c  tim*.  cx:.; 
produce  a  modified  tree  that  represents  an  equivalLn:  A.F: 
program.  Finally,  the  prettyprint  routiitc  p'/Oviv^^n  - 

formatted  text  file  usin^  the  su^,^ested  t  c  r::..;  1 1 1 :: 
conventions  in  the  Ada  reference  t'ia:vaal  as  :xuc'i  as  • 

The  remainder  of  this  docux'.eXit  descrines  tiic  x’oiriows 
parts  of  the  design  and  development  t  o:  J.-lln.  Chapter  11 
defines  the  requirements  specified  by  tn^’  resea ren*  projoc: 
sponsor,  AFWAL/AA.  Chapter  Ill  presents  tne  syste'.-- 
analysis  that  was  performed  prior  to  development.  Chapiur 
IV  describes  the  software  development.  Cnapter  V  presents 
the  results  of  this  project  and  recommendations  for  furt'ncr 
work.  Several  appendices  provide  additional  information  for 
the  interested  reader.  Appendix  A  briefly  describes  tiic 
LLNL  software  package.  Appendix  B  defines  the  syntax  of  ti'ie 


u73  language  and  identifies  those  language  productions  that 
have  been  translated.  Appendix  C  contains  a  description  of 
JATS  and  was  designed  to  be  a  system  maintenance  aid. 
Appendix  D  is  a  user’s  guide  and  Appendix  E  is  an  example 
J73  program  and  its  translated  Ada  version. 

In  the  remaining  discussions,  for  the  purpose  of 
clarity,  reserved  words  and  specific  data  names  will  be 
capitalized  and  will  be  discernable  from  context. 
Nonspecific  elements  of  the  J73  language  will  be  enclosed  in 
angle  brackets.  For  example,  <name>  represents  any  valid 
J73  identifier.  The  elements  of  J73  correspond,  as  closely 
as  possible,  to  the  definition  of  tuc  language  in 
MlL-STD-1 5S9A. 


A 


II  Kequirenencs  Def  ini  t  io:i 


In  recent  yeors. ,  the  high  costs  of  software  developr.icr.t 
have  increased  the  importance  of  the  use  of  software 
development  tools.  Currently,  the  USAF  has  a  considerable 
investment  in  major  software  systems  that  are  bein^-, 
developed  with  J73.  With  the  introduction  of  Ada,  wdiich 
supposed  to  replace  J73  as  the  USAF's  approved  pro.,ra:r.r.i:i  • 
language  for  embedded  computer  systems,  it  has  occo::.^ 
evident  that  an  automated  translation  system  fror;  J7j  to  Avi  . 
is  needed . 

The  Air  Force  Wright  Aeronautical  Laboratories; Avion: rs 
Laboratory  has  stated  a  rcquirer.njn t  for  the  developr:^  n :  oi 
such  a  system.  Although  the  general  requi  :i :  >>: 

translation  is  rather  s  traigh  tf  orv;ard ,  it  is  no  sir.pl^ 

As  pointed  out  in  the  development  of  the  Autopsy  project 
the  University  of  Southern  California,  "there  are  t^: 
constraints  guiding  the  development  of  a  useful  translation 
system : 

1.  A  translation  system  must  do  almost  all  of  tnc 
work . 

2.  No  translation  system  can  do  all  of  the  woru" 

(Ref  2:118). 

Invariably  there  will  be  sections  of  code  which  cannot  be 
directly  translated  because  of  unique  system  dependencies. 
In  such  cases  it  is  very  difficult  to  insure  the  correctness 
of  the  translation  and  the  user  must  perform  the  translation 
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njauual  ly . 


The  general  requirenient:  can  be  divided  into 
specific  parts.  First,  the  translation  syste:?.  should  accc.  : 
any  correct  J73  progran  and  produce,  to  the  extent  possible, 
an  equivalent  Ada  program.  The  assumption  that  the  input  i- 
syntactically  correct  will  allow  for  the  elimination  u: 
lengthy  error  detection  and  recovery  routines.  Secondl;.-, 
when  a  direct  translation  is  not  possible,  the  translator 
should  identify  the  untranslated  code  to  allow  the  user 
perform  a  manual  translation.  Thirdly,  to  insurv. 

portability  of  the  translation  system,  its  desi^;n  so.l^uI-: 
conform  to  MIL-STD-l  58yA,  which  defines  ti'^e  synt.iX  a  n; 
semantics  of  J7 d  . 


Since  J73  is  still  undergoing  changes,  th^j 
should  be  designed  to  allow  modification  of  the  syste's 


meet 

the  changing  language 

environment 

.  Since 

the  scope 

o  f 

this 

research  project  was  limited  to  tr, 

anslatin^ 

a  subset 

J73, 

the  s y s t em  snould  also 

be  designed 

to  f  a  c 

i  1  i  t  a  L  o  t 

;  1 L' 

addition  of  the  remaining 

translation 

routines 

to  comple 

t  L' 

the  translation  system. 

In  summary,  JATS  should  translate  J73  source  progras.s 
into  Ada  source  programs,  identifying  those  segments  of  code 
that  have  not  been  translated.  JATS  should  also  be  designed 
to  allow  maximum  portability,  meet  changing  langaU(_,c 
requirements,  and  allow  completion  of  the  translation 
process . 
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Ill  by stem  Analysis 


The  analysis  of  any  lar^e  software  project  is 
important  task  that  should  not  be  overlooked.  One  of  il:c 
goals  of  any  system  analysis  should  be  to  identify  a] 1 
software  development  tools  that  may  be  applicable  to  l:u  *■ 
project.  With  increased  emphasis  on  reducing,  software 
development  costs,  the  use  of  available  software  that  has 
been  tested  and  implemented  must  be  considered  and  can. 
reduce  the  overall  effort  and  therefore  cne  costs  of 
development  project.  This  is  especially  important  in  vi 
research  project  vjhich  must  be  limited  in  scope  in  order  to 
achieve  a  reasonable  . 

Translation  of  the  entire  J73  lan^^ua^e  vjas  not  possihlt.. 
within  the  time  constraints  of  this  project.  Therefor^  .i 
subset  of  the  J73  language  was  selected  for  translation.. 
This  subset  was  chosen  based  upon  the  more  commonly  used 
features  of  tlie  language  so  that  the  results  would  he 
applicable  over  as  large  a  range  as  possible. 

Although  the  project  was  limited  to  translating  a 
subset  of  J73,  the  design  of  the  system  proceeded  as  if  the 
entire  J73  language  was  to  be  translated.  This  will  alio.; 
the  addition  of  the  remaining  translation  routines  with 
minimum  impact  on  the  rest  of  the  system.  Therefore,  the 
design  of  the  front  end  of  the  translator  system,  the 
parser ,  was  a  critical  part  of  the  project.  There  are  two 
general  techniques  used  in  the  development  of  parsers,  One 
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is  the  use  of  top-down  recursive  descent  parsers  and 
other  employs  table-driven  bottom-up  parsers.  The  first 
technique  implements  the  parsing  algorithm  as  recursive 
procedures  whose  algorithms  depend  upon  the  language  to  bt. 
processed.  As  a  result,  a  general  parser  for  more  than  oiil 
language  cannot  be  developed  since  the  parsing  algorithr.s 
will  change  from  one  language  to  another.  In  contrast,  tnc 
second  technique  uses  algorithms  tiiat  are  language 
independent  to  generate  and  then  use  a  set  of  parser  tables. 
Since,  the  tables  contain  the  specific  inf  orrna  t  io['i  abouL 
language,  the  algorithms  can  be  implc:.i^nted  to  goner. 
parsers  for  any  members  of  a  given  family  of  languages.  Tiil- 
particular  family  of  languages  depends  upon  the  algoritnrn^ 
used  to  generate  the  parser.  One  such  parser  gencratv^r 
package  is  ”LR:  Automatic  Parser  Generator  and  LK(1)  Parser’ 
designed  at  Lawrence  Livermore  National  Laboratory  (LL!iL) 
(Ref  12)  . 

LK  Parser  Generator 

The  LR  package  is  a  set  of  programs  written  in  AL’:  I 
standard  FORTRAN  66  which  have  been  successfully  used  in 
many  applications.  The  package  is  currently  available  on 
the  Aeronautical  Systems  Division's  Control  Data  Corporation 
CYBER  175  computer  system  and  has  been  use^  in  previous  AFl T 
research  efforts.  The  AFWAL/AA  DecSystem-10  computer  syste:. 
can  also  support  LR.  The  first  program  of  the  LR  package, 
LRS,  is  the  table  generator.  It  is  complete  in  itself  but. 
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has  two  implementation  dependent  subroutines  tna t  re^ui 
I  minor  changes  to  implement  it  on  the  DecSystem-l 0 .  liu 

second  program,  PKS,  is  the  parser  skeleton  and  must 
supplied  with  the  necessary  support  routin^o  to  complete  t:K 
language  processor.  These  required  routines  are  the  lexical 
processor,  which  recognizes  the  lexical  elements  oi  t:K 
language,  and  the  semantic  processor,  \;hich  dc  lines  t'uL 
semantics  of  the  language  processing. 

Since  both  parsing  techniques  require  tno  lexical 
semantic  processors,  the  two  techniques  do  not  diiicr  ic, 
that  aspect.  However,  since  a  parser  generator  pacK^,^^». 
available,  the  table-driven  bottoiTi-up  parser  WdS  cliosun  ior 
this  research  proj  ec  t . 

Decisions 

Since  LR  was  available  for  use  in  tne  devdopmciii  oi  i 
translator  system,  the  major  decision  tlxit  ha  i  to  be  ;  b 
before  development  could  proceed  v;as  the  ciioicc  ui 
programming  language.  Since  LK  v;as  written  in  A!»S1  sta::dard 
PORTRAIT  66,  the  continued  use  of  PORTRAIT  was  possible,  but 
undesireable .  The  main  reason  for  this  was  tiie  anticipated 
use  of  various  data  structures  and  recursive  al^oritlr.s 
which  cannot  be  implemented  in  PORTRAIT.  Also,  one  of  the 
goals  of  the  Ada  support  env^ironment  is  to  develop  the 
software  tools  using  Ada.  Therefore,  Ada  would  have  been 
the  obvious  choice.  However,  the  lack  of  a  compiler  would 
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have  seriously  restricted  the  development  and  cestin^  Ji  tnc 


system.  The  next  choice  was  J73,  which  was  an  excellenL 
choice  for  several  reasons.  J73  is  a  block  structured 
programming  language  which  allows  the  use  of  structured 
programming  techniques  and  any  system  that  supports  J73  • 
should  also  be  able  to  support  the  translator  systei.:. 
Another  possible  reason  might  be  the  fact  that  the 
translator  could  then  translate  itself  into  an  Ada  version. 
However,  this  approach  would  not  be  equivalent  to  developing 
the  translator  in  Ada. 

There  was  only  one  drawback  to  designing  the  translator 
system  in  another  language;  the  parser  skeleton,  PRS,  was 
written  in  FORTK/Va.  However,  this  was  a  minor  drawback 
since  the  parser  skeleton  was  also  available  in  a  PASCAL 
version  as  a  result  of  an  AFIT  class  project  for  the 
Advanced  Compiler  Theory  course.  Since  the  algorithms  used 
in  the  parser  skeleton  are  short  and  s traigh tforward ,  and 
were  already  implemented  in  a  block  structured  programining 
language,  the  process  of  translating  the  parser  skeleton 
into  J73  did  not  involve  much  effort. 
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System  Sof tware  Development: 


The  bulk  of  this  research  project  was  the  development 
of  the  Jovial(J73)  to  Ada  Translation  System  (JATS) 
software  •  JATS  consists  of  three  functional  module'^: 
(1)  parser  module,  (2)  translation  module,  and  (3) 
prettyprint  module.  The  parser  module  was  developed  usinj 
the  LLNL  parser  generator  package  and  produces  a  parse  tree 
of  the  source  program.  The  translation  module  uses  the 
parse  tree  and  performs  a  direct  translation  of  the  nodes  of 
the  tree.  The  result  of  the  translation  is  a  modified  parse 
tree  which  represents  an  equivalent  Ada  program.  The 
prettyprint  module  uses  the  modified  parse  tree  co  build  a 
formatted  text  file  which  contains  the  Ada  program.  Ecach 
module  of  ttie  system  will  be  described  in  detail. 

Parser  Module 

The  parser  module  implements  a  table«driven  botto^m-up 
parser  designed  using  the  LR  parser  generator.  LK  is  a 
language  processing  tool  consisting  of  two  programs.  The 
first  program,  LRS,  is  an  automatic  parser  table  generate)!*. 
The  second  program,  PRS,  is  a  parser  skeleton.  When  the 
tables  from  LRS,  the  lexical  processor,  and  the  semantic 
processor  are  added  to  PRS  the  result  is  an  LR(1)  parser  and 
language  processor.  The  LR(1)  characteristic  of  the 
language  is  a  design  constraint  of  the  grammar  which  defines 
the  syntactic  type  of  the  language  and  means  that  tht 

1  1 


language  can  be  parsed  from  lef t- co-ri^ht  wich  a  IcoKahecid 
requirement  of  one  symbol.  A  language  of  this  type  cr*n  be 
recognized  by  a  deterministic  pushdow  automaton  in  linear 
time  (Ref  7:501).  A  deterministic  pushdovm  automaton  uses 
stack  and  the  knowledge  of  the  current  state  and  lookaheav! 
symbol  to  decide  the  next  course  of  action.  The  parser 
tables  from  LRS  provide  the  control  information  for  tii^. 
finite  state  automaton  while  PRS  provides  the  definition  o: 
the  process.  The  design  of  the  parser  module  involved  lour 
major  phases:  (1)  parser  table  generation,  (2)  parser  tabK 
translation,  (3)  parser  implementation,  and  (d)  semantic 
processing.  Each  of  these  sections  will  be  discussed  in 
further  detail . 

Parser  Table  Generation .  LKS  accepts  an  LR(1)  gramr.ar 
in  a  modified  Backus-Naur  P'orm  and  produces  a  gramm.::; 
analysis  and  a  set  of  parser  tables.  However,  some  work  w.is 
necessary  to  implement  LKS  on  the  DeeSy stom-1 0 .  LKc' 
contains  two  subroutines  that  are  implementation  depenJcni  , 
INIT  and  CHRINL).  lUlT  initializes  the  input  and  outpu: 
files.  CHRli^'D  converts  a  single  character  stored 
lef t-justif ied  in  one  word  into  an  integer,  the  character 
code,  and  required  the  use  of  a  macro  subroutine.  This 

macro  routine  is  a  function  called  ICHK.  With  these  two 
changes,  LRS  was  successfully  running  on  the  DeeSy s tern- 1 0 . 
Also,  before  LRS  would  process  the  complete  J73  grammar, 
several  other  changes  had  to  be  made  within  it.  Considerin^; 
the  size  of  LRS,  this  was  no  minor  task.  These  changes 
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involved  increasing  the  sizes  of  some  of  the  dimensioned 
variables  to  accommodate  the  large  grammar.  These  changes 
are  discussed  in  greater  detail  in  Appendix  A. 

One  other  change  was  made  to  enhance  the  use  of  LkS . 
In  the  version  available  at  AFIT,  both  the  grammar  analysis 
and  the  parser  tables  were  output  to  the  same  file  and  the 
parser  tables  had  to  be  copied  to  another  file  with  the  use 
of  an  editor  program.  The  grammar  analysis  consists  oi 
large  amounts  of  data  describing  the  parser  and  is  usually 
output  to  the  printer  while  the  data  tables  are  placed  into 
a  data  file  to  be  inserted  into  the  parser  skeleton.  To 
separate  these  output  files,  one  additional  output 
subroutine  was  added  to  write  the  data  tables  to  a  different 
file.  A  description  of  this  subroutine  is  contained  in 
Appendix  A. 

The  J73  grammar  is  input  to  LRS  in  a  modifiovl 
Backus-Naur  Form,  which  is  a  convenient  w^y  of  describiip^ 
the  syntax  of  programming  languages.  Several  problems  v;crc 
encountered  during  this  pnase  of  the  project  since  a 
complete  LR(1)  grammar  was  not  available.  After 
considerable  effort  to  rewrite  the  grammar  from 
MlL-STD-1  589A  into  a  form  that  was  LR(1),  an  LR(1)  grammar 
for  the  executable  statements  of  J73  was  obtained  fro:.. 
Softech  Incorporated  (Ref  8).  However,  the  remaining  grammar 
for  the  declarations  was  not  LR(1).  According  to  Softech 
Inc.,  they  developed  the  J73  compiler  using  a  top-down 
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recursive  descent  parser  for  the  declarations  and  u 
table-driven  bottom-up  parser  for  the  statements  and 
therefore  did  not  have  a  complete  LK(1)  grammar  available. 
However,  according  to  the  language  designers  at  Softer.: 
Inc.,  J73  is  a  deterministic  context  free  language,  whirr, 
implies  (Ref  7:512)  that  an  LR(1)  grammar  does  exist  for  t:*c 
language.  Rewriting  the  grammar  was  no  minor  tasK  and  there- 
are  still  several  places  in  the  grammar  where  the  translator 
will  not  accept  a  syntactically  correct  J73  pro^ra:r.  T:ie 
resulting  grammar  is  contained  in  Appendix  B.  The  grcuLesi 
discrepancy  is  probably  the  complete  lacd  of  a 
<block-preset>  definition.  The  definitions  of  tn^ 

<block-prese t>  and  the  <table-prese t>  conflicted,  resultin,; 
in  a  grammar  that  was  not  LK(1).  The  gram.mar  for 

<block-preset>  could  have  been  rewritten  but  v;ould  have  been 
a  time  consuming  process.  The  <block-pr ese t>  was  eliminatevt 
in  favor  of  allowing  development  to  proceed  on  the  remainiig; 
modules  of  the  system.  However,  use  of  the  <block-presc-' i  > 
does  not  appear  to  be  chat  extensive  and  this  loss  of 
completeness  was  assumed  to  be  justified.  Other 

discrepancies  are  concerned  with  some  of  the  si/.e 

constraints  in  some  of  the  data  declarations.  The  problem 
was  that  the  <formula>  in  some  of  these  cases  v;as 
immediately  followed  by  a  left  parenthesis  'while  the  grammar 
for  a  subscripted  variable  can  be  a  <name>  followed  by  a 
left  parenthesis.  For  a  grammar  to  be  LR(1),  the  parser  has 
to  be  able  to  decide  what  to  do  in  its  present  state  based 
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upon  the  next  token,  or  symbol,  of  tne  inpuL  stre..  . 
However,  with  this  conflict,  the  parser  could  not  decide 
whether  to  combine  the  <name>  and  left  parenthesis  to 
generate  the  subscripted  variable  or  reduce  the  <name>  to  ^ 
<formula>  to  generate,  for  example,  a  <staLus-size> .  The  * 
specific  areas  that  are  constrained  are  the  <s tatus~size>  iw 
the  declaration  of  a  status  item,  the  <bi ts-per-en try>  a:n: 
<entry-size>  in  the  declaration  of  structured  tables,  c^r.d 
the  <repetition-count>  in  a  <table-prese t> .  Again,  these 
constraints  do  not  appear  to  place  a  serious  limitation  upvV'i 
J73  users*  These  discrepancies  are  sumr.iarizcd  in  table  1* 


MIL-STD-1 589A 
Reference 


Table  I 

Grammar  Discrepancies 
Element 


Cur ren t 
Definition 


• 

• 

• 

CM 

<status*sice> 

^inte^er- literal > 

2.1  .2.2 

<bits-pGr-enLry> 

sin teger- 1 i t eru 1 > 
<nar.;e> 

<func tion-cal 1 > 

2.1  .2.4 

<entry-size> 

<integer- 1 i tera 1 0 
<name> 

<func tion-cal I> 

2.1  .6 

<repe tit ion-count > 

<integer- literal. > 

2.1  .6 

<block-preset> 

h’ot  Defined 

It  should  also  be  noted  that  a  <name>  which  has  not  yet 
been  defined  during  parsing  of  declarations  is  scanned  as  a 
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<nanie>  while  an  undefined  <narie>  during  parbin^ 

statements  is  scanned  as  a  <proc- label-nan}e> .  Th 

distinction  was  necessary  in  the  gramnar  definition  to 
It  LR(1  )  . 

Once  an  LR(1)  grammar  for  J7j  was  defined,  LKS  produe 
a  valid  set  of  parser  tables.  The  J73  gramr.^ar  that  was  us 
to  generate  these  parser  tables  is  contained  in  Appendix 
The  specific  contents  and  structure  oi  tables  a 

described  in  Appendix  A . 

Parser  Table  Translation .  Once  the  paiX'^c:'  t.^tl..s  nn 
obtained  from  LRS ,  a  translation  sttp  v,c:>  rc^uirLd 
transform  the  data  tables  into  the  J7i  laii.;u.:^;>  in  a  !h' 
that  was  equivalent  to  the  FURIKA!:  6b  DlMaih  lo!:  .n.id  1.* 
statements.  The  data  tables  were  processed  by  Idiid.nb..' 
and  produced  J73  constant  table  declarations  tn^t  duplio.:* 
the  FORT RAI^  66  data  s  t  r u c  t  ar  s  .  Th e  s  e  slat  e::, c n  t  s  wu  r  i . . 
collected  together  as  a  conpool  module.  37  3  c  j::.po..  :  isodul 
are  separately  com.pilable  moaules  l'.u.:  con  t.ii  a.  a.i 

declarations.  Tne  use  oi  I  ’Akj  coropool  mod  ale  jo/oved  t  . 
very  advantageous  since  the  tables  were  very  lai\ >  a 
required  about  five  minutes  of  epu  time  for  compilation 
the  DeeSy s tern- 1 0 .  The  J73  compool  module  provided  t 
parser  table  information  for  the  parser  skeleton. 

Parser  Implemen tdt  ion .  PKS  provided  a  FORTRA'C  pars 
skeleton  which  had  to  be  translated  into  J73.  This  step 
relatively  simple  since  PKd  nad  already  been  translated,  in 
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PASCAL  and  the  same  data  structures  were  available  in 
Four  subroutines  make  up  the  main  parsing  al^oritn 
(1)  FIND'REDUCTion,  (2)  FI NU ’ TKANs i t ion ,  (3)  DO’REDCCIio 

and  (4)  DO' TRANsi t ion  •  FIND'REDlJCr  uses  t’ne  current  st.-. 
and  token  to  search  the  tables  for  a  possible  reduction, 
one  is  found,  the  applicable  lan^ua^e  production  is  used 
DO' REDUCT  to  call  the  semantic  processor  and  reduc^^  t 
information  in  the  stacks  accordingly.  If  a  redact  Lvi 
not  possible  from  the  current  state,  FlND'Ttv\h  searches 
tables  for  a  possible  transition  to  another-  state, 
transition  is  possible,  DO'TKAh  sticks  the  curr- 
information  on  the  appropriate  stacks  and  calls  t'ne  IoK:e 
processor  for  the  next  t  )ke:r  in  the  input  streu 
neither  a  reduction  nor  trcifis  i  t  icri  is  possible,  tiiL:  our- 
has  detected  an  error  and  must  recover.  Since  t’n 
translator  was  designed  witn  the  assump t i!.)n  that  the  iny 
programs  are  c  o  r  r  e  c  L  ,  an;;.’  errors  d  e  t  e  c  t  e  di  w  ill  res  u  1 1  :  ” 

grammar  di  sc  r  epanc  i  es  an.d  tnnt  psrt  of  t.ie  proyri"'.  canv't 
processed  • 

Tne  major  addition  to  the  skeleton  t'^  cojpletc  t 
parser  was  the  lexical  processor  or  scanner.  Tn 

subroutine  performs  a  lexical  analysis  of  tne  input  a 
supplies  the  parser  with  the  tokens  of  the  input  strei 
For  example,  the  assignment  statement  in  figure  1  coasts 
of  three  lexical  elements:  (1)  TEST' FLAG  which  is  a  .J 

identifier  or  <name>,  (2)  the  equal  sign,  and  (3)  t 
reserved  word  FALSE.  The  lexical  structure  differs  fro't  o 
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TEST’ FLAG  =  FALSE 


Fi^  1,  Assignment  Statemen: 

language  to  another  implyin^^  the  need  ror  d  sol  e  ia  I  E 
scanner.  The  lexical  elements  oi  consisi  o: : 

(1)  reserved  words  and  symbols,  (2)  identifiers  or  <namL>-, 
(3)  numbers,  (4)  character  strings  or  <charaL  ter-ii  iLimil  .s , 
(5)  directives,  and  (6)  comments.  Procedures  t:;ut  arL 
to  the  lexical  processor  are  used  to  slUiS.  tf.e  diiierL 
elements  of  the  language.  These  procedures  .;s  -..u- 1  1 
several  functions  whicn  support  tlie  leuica:  ;>rjCLS^jr  cur. 
described  in  Appendix  C. 

Semantic  P r o c e s s i 1 1 , , .  Tne  semantic  processor  dLScrib'L 
the  actual  language  processing.  ditr'iout  L'nie  se::uu)':c 

processor,  the  parser  is  com:plete  in  tiuit  it  will  recoin:  ,l 
the  grammar.  However,  for  a  language  processor  to  per  for:,. 
useful  function,  the  definition  of  the  setiantic  process  trust 
be  provided.  Tnese  routines  are  very  dependent  on  the 
source  language  and  the  purpose  of  the  langua^^c  processor. 
For  example,  the  semantic  processor  of  a  compiler  typically 
contains  the  symbol  table  manipulator  and  code  generator. 
However ,  for  a  translator ,  the  semantic  processor  needs  to 
preserve  the  structure  of  the  source  programi  until  it  has 


been  completely  parsed,  at  which  time  translation  car-i 


proceed.  The  data  structure  that  was  selected  t^>  represei: 
the  program  was  the  parse  tree.  An  example  of  a  partial: 
parse  tree  of  the  assignment  statement  from  figure  1 
shown  in  figure  2.  The  labels  on  the  links  in  figure  2  will 
be  discussed  in  the  next  paragraph • 


The  reason  that  this  structure  was  selected  w’as  heciusc 
records  the  complete  parse  of  the  source  progri’.  ani 
further  processing  on  an  elemoni-by-elemenr  l^-^sis. 

The  specific  data  structure  that  was  selectevi  t  > 
represent  the  parse  tree  was  a  linke.l  list.  Tue  nude  wiilci 
represents  the  assignment  state’'aent  In  figure  2  'Would, 
consist  of  four  list  elements,  one  describing  tne  node  and 
three  identifying  the  subtrees  of  the  node,  and  is  sho.vui  in 
figure  3.  This  is  accomplished  by  using  four  identical 
elements  each  containing  the  three  followitig  fields: 
(1  )  NODE’PIK  which  is  an  integer  field,  (2)  LIIQR’TYPE  which 
is  an  integer  field,  and  (3)  NODE*LINK  which  is  a  pointer- 
field  containing  an  absolute  machine  address.  The  cor*itents 
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Fig  3.  <assign'nent:-stnnt>  Node 


of  NODE*PTR  of  the  first  element  of  the  linked  list 
representation  of  a  parse  tree  node  contains  the  production 
number,  or  language  rule  ..hat  was  used  to  obtain  the  node 
from  its  subtrees.  NODE'PIK  of  all  other  elements  of  a  node 
contain  the  node  number  which  identifies  the  subtrees.  The 
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valato  contained  in  NODE'PTK  of  these  remaining  cle'^.cnis 
correspond  to  the  Links  shown  in  fi;^ure  1.  LINK’TYPE  =  C 
for  all  elements  of  an  internal  node  of  the  tree  and 

indicate  that  NODE*LINK  points  to  the  next  element  of  liic 
node.  The  final  element  of  a  node  will  have  a  NODE'Lllhv  • 
that  has  a  null  value.  Usin^  this  structure  to  describe 
node  within  the  tree,  the  nodes  of  various  sizes  caii  z-l 
efficiently  stored  without  wasted  space,  a  very  inj^orta.:: 
consideration  in  such  a  lar^e  software  project.  Ini.- 
structure  also  allows  for  the  dynamic  nature  of  tn^-  tim. 
durin^^  the  translation  process . 

If  the  node  is  a  terminal  node,  a  lea:  of  t:u  tre*., 

then  the  value  of  LI'^K'TYPh  v;ill  be  non-zero  and  tuL  ot:u 
fields  will  have  other  mecinin^s.  For  all  tert.iru:!  nodL>  , 
NODE*PTK  will  contain  the  token  number  of  tne  ter:.. in 
symbol.  If  the  terminal  node  is  a  reserved  word  or  syrfool  , 
LINK*TYPE  will  have  the  value  3,  and  v;ill  iiave 

null  value.  If  the  terminal  node  is  a  <na”ie>  or 

<charac ter- li teral> ,  Lli^K'TYPE  will  have  the  value  3,  bu: 
NODE*LINK  will  point  to  another  elezient  which  will  be 
interpreted  as  follows.  If  the  node  is  a  <na:Tie>, 

NODE’PTR  =  0,  LINK*TYPE  =  3,  and  N0DE*LInK  points  to  the 
symbol  table  entry  for  the  <name>.  If  the  node  is  a 

<charac ter- li teral> ,  NODE’PTR  contains  the  index  into  the 
string  table  to  identify  the  string,  LINK'TYPE  =  3,  and 
NODE'LINK  has  a  null  value. 
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If  uhc  cerTninal  node  is  an  <integer-liter.il  > , 
LINK'TYPE  =  1,  and  NODE’LINK  points  to  an  element  that 
contains  the  integer  value  of  the  node.  If  the  termincil 
node  is  a  <real- li  teral> ,  LINK'TYPE  =  2.  and  NODE'Llh'N 
points  to  an  element  that  contains  the  real  value  of  t'nc 
node  • 


The  parse  tree  is  a  collection  of  these  nodes,  sucn 
that  the  root  of  the  parse  tree  is  the  <comple te-pr  2 ■ 

and  NODE(I)  contains  a  pointer  to  the  first  elerjeru  of  the 
I  th  node.  J73  has  pointer  variables  w.hicn  can  be*  ennsily 
manipulated  to  implement  a  linked  list  structarc;  howevL-n, 
the  current  compiler  does  not  yet  support  exc-cution  ut 

dynamic  allocation  of  memory,  Inerefore,  it  ii' ■* 

to  declare  a  HEAP,  or  large  storage  space,  vhici:  carj  Oe  usi  n 
to  store  these  dynamic  ele:neiits.  In  order  to  ;:^aka  ef licit*;' 
use  of  such  a  neap,  a  dynamic  allocation  alg.orl;;.  , 
implemented  as  a  function  h'E'..P,  is  used  to  coni  r  i 
allocation  of  new  elements,  Durin^  the  parsing  process  in*, 
parse  tree  is  continually  gro;;in^  and  dea i  loca  t  ioii  t>:  usi  .. 


heap  space 

does  not 

occur .  Therefore , 

NEXT' NOD  L  , 

V!.  i  c 

the  index  of 

the  next 

available  NODE , 

needs  onl_.’ 

to 

incremented  by  one  each  time  a  node  is  allocated,  LiKewisu, 
NEXT*HEAP,  which  is  the  pointer  address  of  the  next 
available  heap  space,  needs  only  to  be  incremented  by  tnc 
size  of  the  space  to  be  allocated.  Additional  routines  aru: 
data  structures  to  implement  the  allocation  algorithms  will 
be  covered  during  the  discussion  of  the  translation  nodule. 
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The  heap  is  also  used  lor  storage  of  ihe  syrr;jol  table. 
For  a  translation  system,  the  entire  symbol  table  must  be 

kept  until  the  translated  program  can  be  output  since  t:.». 

terminal  nodes  simply  contain  a  pointer  into  the  syr..bol 
table  to  identify  the  <name>  of  the  riode.  This  i.- 
contrasted  to  the  maintenance  of  the  symbol  tc-ble  in 
pass  compiler  where  the  symbol  table  entries  for  a  ..;ive;-. 
lexical  level  can  be  deleted  when  that  lexical  level  i.- 

exited.  The  symbol  table  is  stored  as  a  hash-cocL  : 
collection  of  separate  chains  (Ref  10:513)  wheru 
contains  a  poinier  to  the  first  symbol  table  eniry  i:*  tbi 
1th  chain.  Lacn  element  of  the  symbol  table  contains  :i\a. 
fields:  (1)  SYM  ’  S  rOhC '  PI  N  which  is  th^^  indux  1:1:0 

character  storage  array  for  tne  first  characlu:*  of  ta^ 

symbol,  (2)  SYMBOL  *  LLl'GTh  whica  is  tne  number  of  cl.<_:r-c:Lr 
in  the  symbol,  (3)  SYll'LIMK  v;hich  contains  a  point»^i'  ta  i'..^ 
next  element  of  tnu  chain,  (4)  TYPL*  CLASS  whicfi  is  u.si  : 
define  the  class  of  the  symbol,  and  (5;  PK0C*!^L'!*  wi.^co 

indicates  which  procedure  the  symbol  was  declaVLd  in.  Tpi.- 
possible  type  classu^s  are  listed  in  table  II  a:a:  are  use: 
during  the  parsing  process  to  return  tiie  proper  r.oken  s>m.l.ol 
from  the  lexical  scanner.  PROC'NLLl  is  used  to  allow 
same  <name>  to  be  used  at  different  lexical  levels.  Another 
array,  PAKENT'PKOC,  is  used  to  identify  the  nesting  of  the 
procedures . 

Symbol  table  entries  are  made  by  the  scanni:y^ 
procedures  at  the  time  that  the  symbol  is  first  scaniied  in. 
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TABLE  11 


Type  Classes 

Value  Classification 

0  <name> 

1  <iteTn-type-narrie> 

2  < table- type-name > 

3  <block- type-nane> 

4  <proc-name> 

5  <label-name> 

6  <def  ine-na::ie> 

7  <proc-label-name> 

procedure  NAIIE  *  KESWOKD .  Tne  scanner  also  euiKls 
terminal  nodes  of  the  parse  tree  and  provides  the  nu^'o^^r  oi. 
the  node  to  the  semantic  processor  lor  the  semantic  stc.c*:. 
The  remainder  of  the  semantic  processing  is  accompl isiicd  in 
procedure  SEMrLNTlC,  which  is  called  from  DO'KELL'CT  when  a 
reduction  is  to  take  place.  Tne  semantic  stack  will  contai:; 
the  node  numbers  of  each  of  the  subtrees  of  the  curren: 
production,  or  rule,  that  is  to  be  reduced.  The  se:r.antik- 
process  consists  of  building  a  new  node  whici]  co:::bi\\ijs 
subtrees  of  the  production.  ror  example,  tne  productio;. 
used  to  build  the  assignment  statemicni  is  shown  in  li^^urc  d. 

<assignmcnt-stmt>  : <targct-list>  =  <expression/ 

Fig  4.  Assignment  Statement  Production 

When  SEM/\NTIC  is  called,  the  number  of  this  production  is 
passed  as  a  parameter  and  the  new  node  is  built  from,  the 
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semantic  stack.  The  elements  on  the  ri^rit  hand  side  o:  i:if 
production  are  at  the  top  of  the  stack  and  are  useJ 
construct  a  new  node  as  follows:  (1)  the  production  number 
is  used  to  construct  the  first  element  of  the  new  nodv , 
(2)  the  last  element  of  the  node  is  on  top  of  the  stacK  ..r.d 
is  added  to  the  node  by  creating  a  new  ele  iutjiir  ano  linKiii^, 
it  to  the  first  element.  The  process  of  poppin^  t!'ic  :  -p 
element  from  the  stack  and  inserting  it  after  the  rirs: 
element  of  the  new  node  is  repeated  until  tne  complc.‘tc  node 
has  been  constructed.  The  reduction  process  tnen  puslics  :  .t. 
new  lefthand  side  of  the  production  and  the  neo  nouL.  lino 
was  just  constructed  onto  the  stacks. 

The  semantic  routines  also  add  inf  or:;.^  t  io':'i  to 
symbol  table  when  a  dec Iar.it ion  is  procebSed  to  Lst^ibiisn 
the  class  of  the  symbol  table  entry.  ror  exar.pl^  ,  tn». 
production  in  figure  5  would  cause  the  syoibol  tabK*  un:r. 
for  <name>  to  be  set  to  indicate  that  the  entry  is  ;  . 
< item- type-namc>. 


<i tern- type-dec>  : TYPE  <name>  <item- type-description> 


Fig  5.  Declaration  of  Item  Type 

The  same  actions  would  apply  for  processing  of  blocK 
declarations,  procedure  declarations,  label  declarations, 
table  declarations,  and  define  declarations. 


25 


When  the  parsing  morale  has  co:'..pitLc^  its  ^^rocessin^ 
the  parse  tree  and  the  symbol  table  will  have  been 
constructed  to  allow  the  translation  process  to  begin. 

Translation  Module 

Translation  of  the  J73  program  is  accoinpl  isneu  in  t  v;.* 
separate  steps.  The  symbol  table  is  processed  iir>i 
followed  by  the  processing  of  the  parse  tree.  Processin.  n: 
the  symbol  table  translates  J73  identifiers  into  A.h, 
identifers.  The  identifiers  of  both  lan^ua^es  coinsi.*^: 
primarily  of  letters  and  dibits.  The  only  diflerenccv, 
between  the  identifiers  is  the  use  of  tne  dollar  si^n  and 


the 

sinj^le 

quo  te  in  J7  3 

and  the 

use  of  tile  under." 

?  C  O  r  L: 

Ada . 

The 

dollar  si^n 

is  used 

to  represent 

s  pc  c 

charac  ter s 

that  m.ay  be 

required 

in  external  n am e 

>  and 

implementation  defined.  Ada  has  no  equivalent  structure; 
therefore,  the  dollar  si^n  is  not  trainsla  t  a  D  i  L.'  a  n  u  is  i  k)  t 
allowed  in  programs  to  be  translated.  The  use  of  thL:  d7j 
single  quote  is  similar  to  thL;  use  of  the  underscore  in  Ad.; 
but  J73  allows  a  more  liberal  use  of  the  sin^^le  c;uote. 
After  surveying  the  programmers  who  use  J7i,  it  was  fourivi 
that  the  most  common  usage  of  the  single  quote  was  as  d 
seperator  between  parts  of  an  identifier.  Sucii  usa^^i. 
conforms  to  the  rules  of  the  use  of  the  underscore  in  Ada 

and  the  translator  was  therefore  designed  with  tlK 

requirement  that  the  use  of  the  single  quote  conform,  to  tiiL 

rules  of  the  use  of  the  underscore  in  Ada.  One  other 
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assumption  was  made  to  preclude  the  re^uirer-.^ui 
generate  new  identifiers:  J73  identifiers  will  not  consis: 
of  Ada  reserved  words.  This  greatly  simplified 
translation  of  identifiers  since  all  that  is  now  required 
changing  all  single  quotes  into  underscores  during  a 
pass  through  the  symbol  table  character  strin^,  stora<^L-. 
Processing  of  the  symbol  table  in  this  manner  results  i  ■ 
each  identifier  being  translated  exactly  once  instead  .a 
processing  an  identifier  each  time  that  it  j-c  found  in  i.n 
parse  tree.  If  JATS  was  an  interactive  syste:.. ,  the  abev^. 
limitations  could  be  removed  since  JATd)  could  re^^u^.,-- : 
assistance  from  the  user  to  renami.  a:v.’  ideii i  i  1  i r  th.at  w.;- 
found  to  not  conform  to  tne  rules  of  Ada . 

The  remainder  of  the  transluLion  process  consists  o: 
manipulation  of  the  parse  tree  by  procedure-  Tr.A!h'>LAd  u , 
Translation  of  the  tert.in.ii  nodes,  or  leaves,  is 
required  since  the  translatiori  of  identifiers  nis  alrL.. 
been  accomplished  and  blauKct  t  rans  la  t  iosi  of  reserved  wo:u,. 
and  symbols  is  not  performed.  The  trarnslation  proces.^-  i- 
language  production  oriented,  that  is,  eacn  node  i. 
processed  based  on  the  production  number  that  was  usuu  to 
construct  the  node.  The  tree  is  processed  in  a  botto::;  up 
fashion,  with  each  subtree  of  a  given  node  being  processed 
before  the  node  itself  will  be  processed.  Recall  that  the 
first  element  of  each  internal  node  contains  the  production 
number  for  the  node  and  this  is  used  to  select  the 
appropriate  action  through  a  case  statement.  Each  lan^u/q^* 
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production  will  have  a  case  alternative  that  detir.c.-  i..u 
specific  actions,  possibly  none,  that  take  place  Jur::. 
translation  of  a  node  that  was  constructed  witn  t:.-. 
production.  There  are  four  basic  processes  that  .tr. 
performed  during  translation:  (1)  changing  reserved  word, 

and  symbols,  (2)  adding  new  terminal  symbols,  (3)  deletiiig 
existing  elements,  and  (A)  rearranging  the  eiements  of  t... 
node.  Each  of  these  operations  will  be  discussed  . 

The  process  of  changing,  a  reserved  v;ord  or  sy:;.hoI  i> 
simple  given  the  structure  oi  tlie  parse  tree,  Ouce  t..-. 
proper  element  of  tiie  node  is  identified  by  ^  poirm.i.:- 


variaole , 

NODE' PTK 

of 

tna  t 

el  e";e: 

m  identifies  tne  tL-r'::in.. 

node  chat 

contains 

tPiO 

r  c  s  e  r  v  e 

word  or  s\’:;dsT  .  In^ 

NODE'PTK 

of  this 

term 

,inal 

n  0  u  e 

contains  inc  tv).;^;.  n.u':  :  l 

that  identifies  the  reserved  word  or  sym.bol  .  The  ;nrocess  et 
changing  the  reserved  word  or  symbol  then  simply  re.jUiiL 
changing  the  value  of  NuDL'PIk  at  ti^e  terminal  node.  1  .l 
process  of  chan^in^  a  symbol  or  reserved  word  is  perfv>r"t.a 
by  procedure  ChAi^Gil '  iTU  JE .  The  translation  process  ot  t;u. 

assignment  statement  from  figure  2  is  shov;n  in  ii^vire  0. 
When  Che  node  that  represents  the  <ass ignmeri  t- s  tm t >  is 
translated,  a  pointer  variable,  N'PTK,  is  updated  to 
identify  the  second  element  of  the  node.  IsODE*PTK  at  this 
element  identifies  the  node  Chat  represents  the  equal  sign. 
The  value  of  NODE'PTK  for  tiie  equal  sign  is  AS  and  i- 
changed  to  a  value  of  171  to  represent  the  assignmen.: 
operator  of  Ada . 
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1  i  s  L  > 


Fi'  6.  Translation  cf  <assi,;nment-st::.L> 


The  process  of  adding  a  nev;  terTiinal  sy::;boI  to  the 
production  is  a  little  more  difficult.  It  involves  creatino 
a  new  node  and  inserting  a  new  elernent  in  the  chain  o: 
elements  which  makes  up  the  node.  This  requires  that  tiie 
position  of  the  new  element  be  identified  and  the  new 


29 


terminal  symbol  be  specified.  Oncc  the  elemea:  ta.ii  . 
preceed  the  new  element  has  been  identified,  proc^oa:  i 
ADD’ NODE  will  create  a  new  node  that  represents  tiic  :,v  . 
terminal  symbol  and  establish  the  necessary  lin’Ks.  1:..^ 
process  is  sh  ow’n  in  figure  7  for  tne  transla  tio’o.  ; 

<label>  where  a  new  symbol,  <<,  must  Dl.  added  De^toiw  :  .• 
<proc- labe  I-name>  and  the  colon  fo  1  lo’oi:., 

<proc- labe l-namie>  is  changed  to  >>, 


Fi^  7.  Translation  of  <label> 
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The  process  of  deleting  an  elerp.unt  of  a  node  i<  i\,i 
simple,  just  relink  the  appropriate  elenients  of  the  chciin 
eliminate  the  desired  element.  However,  since  the  tree  i 
dynamic  structure,  the  utilization  of  the  heap  is 
efficient  when  some  type  of  storage  reclamation  is  perfor 
as  elements  ot  the  tree  are  deleted.  Tnerefore, 

procedures,  DELETE' NODE  and  DELETE ' SLETKEE ,  are  used  to  f 
heap  space  when  a  node  elemeiit  is  deleted  fro'*.  tiu  pea 
tree.  DELETE 'NODE  releases  the  identified  ele’:.er':t  i  ro".. 
node's  chain  while  DELETE '  SL  EInEE  releases  ^1^ 
elements  of  the  suoti'trc  thdt  wera  deleted  as  a  result  of 
deletion  of  tne  initial  elec'.er.  t.  rioux-Ver,  so;-.^  cu..i;;  p.c - 

the  allocation  aluorit:m:^  were  re.,  aired  to  it.pleo 
reallocation  of  the  space  collected  threu.;;:  star 
reclamation.  Usin^  an  overld/ed  data  structure  r. 

can  contain  either  a  pointer  value,  NODE(I),  to  ci  node  cn 
or  an  integer  value,  FkEE  '  NODE  (1 )  ,  whici.  inueUL-s  the  n 
node  of  the  linked  list  of  availao^e 
NODE  (N' EXT  'NODE)  is  allocated,  FKuu  '  NODE  (  NEXT  '  .E.' )  c  '-ut : .. 

a  linK  to  the  next  available  node.  Note  tf. NE.ll'l. 

cannot  simply  be  incremented  as  durin^  the  parsin^  pr^ce;- 

Stora-^e  reclamation  of  the  released  node  elem.en*ts 
accomplished  by  linking  the  elements  topetner  usinp 
already  available  pointer  field  NODE'LINE.  If  a  list 
available  elements  exists,  FREE'PTk  is  a  pointer  to 
first  available  element  in  the  list  and  NODE' LINE 
FREE'PTK  is  a  link  to  the  next  available  elemer.t.  If 


31 


list  is  empty,  FREC' PTK  =  NULL,  and  allocation  iro'.. 
is  necessary  • 


Rearranging  the  elements  of  a  node  is  also  a 
operation  with  the  structure  of  the  parse  tree  cir... 
corresponds  to  swapping  the  order  of  the  subtrees  of  a  nooL . 
Procedure  SWAP' NODES  is  used  to  swap  two  elet.ents  truii  .w.w 
adjacent.  If  the  desired  elements  are  not  adj^ccrit, 
repeated  swaps  must  be  performed  until  tne  desired  cnan.  t.'  : 
achieved.  An  example  of  this  process  can  be  see:.  :  r':  th-. 
translation  of  a  <pro^rami“bod  y>  using  product  ioi^.  nn/.u^:' 

Ttie  structure  of  the  parsed  node  is  snow:;  in  ii^gurL  a::': 
figure  8b  shov;s  tiie  results  after  swappin^  tn^.-  ei-eS-Liits  tiiv;: 
correspond  to  the  nodes  del  ini in^^  SEGl!,'  and  <dec-listd. 


a.  BEGIN  <dec-list>  <stm.t-Iist>  <sub- de  :  «  1  i  s 

<d  i  r  ec  t -  co::;pou:mi  -  e  nd 

b.  <dec-iist>  BEGIN  <stmL-list>  <sub- Je t -  1 i s t > 

<direct- compound- end  ^ 

c.  <dec-list>  BEGIN  <sab-de f - 1 is t >  <stmt-list> 

<d  irec  t-  cuw.pourui-  end  > 

d.  <dec-list>  <sub-def-list>  BEGIN  <stm.t-list> 

<d irec  t  - comipound  -  end 


Fig  8.  Translation  of  <program-body > 

Then  <stmit-list>  and  <sub-def-list>  are  swapped  resulting  i:) 
figure  8c.  Finally,  BEGIN  and  <sub-def-list>  are  swapp^ee! 
and  a  semicolon  is  added  as  the  last  element  of  the  node  t' 
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coniplr..  uhe  translation  as  shoAn  in  figure  oJ.  l;. 

the  first  element  of  the  two  chat  are  to  be  swapped  rr.us  i 
identified  by  a  pointer  variable  each  t ime . 

One  other  procedure  is  used  duriu::  the  translati 
process  to  simplify  the  actions  takin^'  place.  That 
procedure  MOVE'PTK,  which  simply  moves  tne  pointer  itj  i 
node*s  chain  of  elements  a  specified  numoer  of  elements. 

Most  of  the  lanp^ua^e  productions  t;iat  have  oe 
translated  used  simple  additions,  deletions,  and  cha:p,es 
the  nodes.  However,  some  of  the  t  rans  la  t  ior:i  s  rev^airtL:  :>> 
worK.  One  example  is  tne  translation  o:  intu-/c‘r  i: 
declarations  that  specified  t'ne  <inteaer“  s  o: 

variable.  Although  the  trainslation  dous  no:  inol....^  : 

representation  specifications  o  1  u  ti ,  ran.’  t'  o  o  .a  s  :  r  ^ :  .a  !  ^ 
placed  on  integer  variables  \;aea.  possiol^.  1:  taL  d 
integer  was  unsip,ned,  tnen  the  imra/.u  is  s-pcciiic-a 
0 .  .2“'*<inte-er-sice>'l  ,  If  tne  integer  si^a^.:,  taea  : 

ranp,e  or  tne  rosultinp  equivalco:  .hd,;  WirlaM^ 

- (2--<integer-size>-l ) . .2*-<inteper-siue>-l  .  HowcVl  t , 
translation  still  uses  simple  additions  to  co:istruc:  : 
node . 

J73  character  items  are  translated  into  Ada  objects 
type  STRING,  where  the  string  would  be  indexed  in  the  ran. 
1  .  .<charac ter- s i2e> .  Witn  this  convention,  a 

<character-li teral>s  can  be  translated  into  Ada  strin^_,s. 
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In  surniviary  ,  che  translation  process  involves  cnanjin  , 
adding,  deleting,  or  rearranging  elements  of  the  parse  tr^-t 
in  order  to  have  the  parse  tree  represent  an  equivalent  An  . 
source  program.  Most  of  the  translation  routines  si:t;  1  • 
required  the  application  of  one  or  more  of  the  suppor* 
procedures.  It  should  also  be  noted  that  a  good  many  of  in 
translation  routines  required  no  action  at  all  except  ior 
indicating  that  the  node  had  been  tratisla tcvi , 

Since  the  scope  of  this  research  project  could  'mi 
encompass  the  entire  translation  process,  JAIS  currently 
translates  only  a  subset  of  the  J7d  language.  fiov;ever,  t’u.* 
design  of  the  project  included  the  cc^mplete  translail': 
process  and  additional  translation  processing  c  o  bo  addi'  : 
to  the  existing  system  without  major  modi r ica t ions •  In 
order  to  make  the  current  translator  as  useful  as  possihl.j, 
the  subset  of  J7i  tnat  has  been  translated  was  selected;  i  ) 
cover  as  mucl'i  common  usage  of  the  language  as  possible. 
This  includes:  (1)  basic  program  structure,  (2)  data  iie" 
declarations  and  type  dec  larat  ions ,  (3)  procedure- 
definitions,  and  (4)  most  basic  statements.  A  sumrnary  of 
the  translated  productions  is  containe^i  in  Appendix  B . 

To  aid  the  user  in  identifying  any  sections  of  J73  code 
that  may  not  have  been  completely  translated,  some  method  of 
marking  each  node  as  having  been  translated  or  not  must  he 
used.  The  technique  used  in  this  system  is  an  array  of 
boolean  variables  that  correspond  to  each  node  of  the  tree. 
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The  euLli-'e  array  is  iiixi’..  i.^ed  with  the  value  FALSK  and  ^ 
NODE(I)  is  translated  the  corresponding  value  :  i 
TRAN*FLAG(I)  is  set  TRUE,  This  will  then  be  used  during  t.u 
prettyprint  process  to  identify  the  sections  of  code  i:\-r 
were  not  translated . 

Prettyprint  Modulo 

The  usefulness  of  an  automated  translator  systec,  wou:  ! 
be  questionable  if  the  foraiat  of  Che  output  was  difficul^  :  ' 
interpret.  In  order  to  get  the  most  out  of  the  translation^ 
Che  resulting  program  should  display  the  structure  ot  t  e- 
language  as  much  as  possible.  The  Ad-i  reference  manu-;' 
suggests  some  formatting  conventions  t^  display  the 
structure  of  the  language.  The  prettyprinl  moviule  ouvpi:^ 
the  translated  program  using  these  forT.attin-;  convention. 
The  lexical  elements  that  will  make  up  the  Ada  pro^;ram. 
the  leaves  of  the  translated  parse  tree  and  are  outpit  f  r- 
left  to  right.  Indentation  and  line  breaks  ar*^  control!  ■: 
through  Che  use  of  a  case  statement  lookin^  for  partlcn! 
reserved  words  and  symbols.  For  example,  witn  the  except iivi 
of  a  formal  parameter  list  in  a  procedure  de  f  ini  t  ii^^n  ,  the 
semicolon  is  a  statement  terminator  and  is  used  to  genere.  i 
an  end-of-line  and  carriage-return.  Another  example  is  t/.u- 
reserved  word  ELSE,  which  must  be  output  two  spaces  to  thr^ 
left  of  Che  current  tab  marker  while  the  statements  between 
the  ELSE  and  END  IF  are  output  at  the  tab  marker. 
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Also  output  during  the  prettypiint  process  are  warninj, 
messages  that  identify  sections  of  code  that  have  not  bee  ; 
translated  and  require  user  translation.  This  allows  t.u- 
user  to  quickly  identify  those  sections  of  code  which  w:. 
require  attention . 


Conclusion 

JATS  is  a  fairly  complex  lan;^ua^e  processor  th.xv 
consists  of  three  functional  modules.  The  parser 
which  was  developed  using  the  software  pagk.i  « 

constructs  a  parse  tree  of  the  J7^  pro^ra'?.,  Tnt  translatl^v'i 
module  modifies  the  parse  tree  to  represent  a’)  eq-aivyl-r:: 
Ada  source  program.  Finally,  the  prettyprint  nodule  builds 
a  formatted  text  file  to  allow  tiie  user  to  edit  tht: 
translated  source  code. 


However ,  the  user  should  b  e  a  wa  r  u 

limitations  of  JATS  and  some  of  the  problems 
syntax  translation.  These  will  be  d i scu s sed 
section.  Still,  JATS  should  prove  valuable  for 
Ada  to  current  J73  programmers . 


of  sevuv  il 


v>  f  .i  I  •*  V 

in  the  •:* 
introduo*  . 
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V  Kesul  w  s  and  Recon’.^en 


The  primary  result  of  this  research  project  is  a 
translation  system,  JATb,  which  provides  a  limitt^i 
capability  for  J7d  users  to  automatically  tratislate 
programs  into  equivalent  Ada  programs.  Any  user  mus .  ht, 
cautioned  on  several  points  before  usinj  JATS.  The  riosv 
obvious  caution  is  that  JAIS,  as  it  is  curreuly 
implemented,  is  incomplete  and  places  several  restrictions 
upon  the  user.  These  include:  (1)  use  of  u.ii“  si’u^,le  quot- 
in  J7i  declared  <name>s  must  conform  to  the  usu  ol  •.u- 
underscore  in  Ada  and  tl’ie  use  of  the  dollar  :s  no', 

allowed,  (2;  J7d  <name'>s  cannot  be  Ada  reserved 
(3)  <block-preset>s  are  not  allowed  in  pro^ri  ;-^  to  'oe 
translated,  size  specifiers  in  some  data  dec  I  o  r 'i  t  ivv^: 

have  limited  definitions  as  shoA^n  in  table  I,  andi  use  )f 

DEFINES  is  not  allow  since  the  mechanism  fnr  prjcessinj  t'u 
DEFINES  has  not  yet  been  incorpo  r<i  t  ed  in  JATo.  A  su’*v:.ciry 
the  translated  J73  ian^ua^e  productLonr  is  ct>nt  lined  I  'l 
Appendix  B, 

Another  point  that  all  users  of  JATS  should  he  aware  oi 
is  that  JATS  translates  a  J73  algorithm  into  an  oqniv^alent 
Ada  algorithm.  T'nis  means  that,  while  t.i^  translated  code- 
will  be  correct,  the  translated  version  nay  not  make  use  of 
the  features  of  Ada.  Such  an  example  is  the  use  of  declare.! 
boolean  flags  to  carry  an  error  condition  through  the  code. 
During  the  translation  process,  the  code  will  be  tr^-oisl  i*  e  : 


correctly  but  Ada*s  exception  handling  techniques  would, 
probably  be  more  appropriate.  This  defficiency  is  not 
unique  to  JATS  but  is  an  inherent  problem  in  automatic 
translator  systems . 

With  these  limitations  in  mind,  JATS  was  tested  against 
small  example  J73  programs  that  primarily  consisted  of  the 
translatable  language  constructs.  In  all  tested  cases, 
translation  was  correct  where  possible  and  those  sections  of 
code  that  were  not  translated  were  properly  identified.  One 
exception  to  this  result  is  the  OTHERS  case  alternaLiv.. 
in  the  Ada  version  of  the  case  statement.  It  will.  be  t’u' 
first  alternative  in  the  translated  versioii  rather  t’nan  tht* 
final  alternative  of  the  case  statement.  An  ex-im^)le  J7j 
program  and  its  translation  is  provided  in  Appendix  E, 

This  research  project  not  only  produced  a  valuable  to  >7 
to  aid  in  the  transition  to  Ada  as  the  DoD  standar*  i 
programming  language  for  embedded  computer  systems  but  als* 
provided  the  author  with  an  invaluable  experience  in  the 
development  of  language  processing  software.  A  task  of  t!iis 
magnitude  presented  a  real  challenge  for  the  author  in 
several  areas:  (1)  grammar  analysis,  (2)  parsing  techniques, 
and  (3)  translation  techniques . 

The  LK  automatic  parser  generator  package  from  LLNL  has 
been  used  at  AFTT  in  other  language  processors,  maiiily 
compilers  and  interpreters.  This  project  added  a  translator 
to  the  list  of  projects  developed  using  LR.  It  a] so 
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required  modification  of  LRS  to  acce^i  a 
grammar,  which  will  allow  future  users  to  process  lar^.u 
grammars  with  LRS.  However,  It  should  be  noted  that  Lk: 
a  very  large  program  wito  a  very  large  memory  c^nd  processLy 
time  requirement , 

One  other  area  that  required  considerable  eftoru 
designing  an  LR(1)  grammar  for  J7d.  Initially,  tne  d ^ j 
grammar  was  obtained  from  Ml  l.-STD- 1  5SyA  and  required: 

extensive  modification  to  produce  a  grammar  that  LK(1). 

After  considerable  effort  to  produce  a  fully  LK(1)  gra::..;.u  , 

an  LR(1)  grammar  for  the  executable  statements  oi  J7  3  v.sis 
obtained  from  -Softech  Inc.;  however,  several  oroolems  still 
existed  in  the  grammar  for  the  declarative  parts  of  .J7j  a.id.  ^ 
as  a  result,  several  limitations  have  necessarily  Oe*.-  : 
placed  on  the  user . 

The  other  major  areas  of  effort  were  the  parsing  am: 
translation  processes  and  the  use  of  the  appropriate  do'.  i 
structures  for  efficient  utilization  of  resources  and  e.is».^ 
of  translation.  Although  the  data  structures  theasel/j^ 
were  not  new,  the  implementation  of  some  these  stracLuri_-s 
was  a  new  experience  for  the  author.  An  example  oi  this  is 
the  dynamic  allocation  algorithms  and  the  use  of  the  OVLKLAV 
declaration  to  allocate  the  same  memory  to  two  different 
data  structures,  the  tree  nodes  and  a  linked  list  of 
available  nodes . 

The  process  of  translation  als'j  identitied  sevLU'tl 
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areas  that  present  some  difficulties.  Tae  cransiaiio’i  .r 
bit  variables  will  require  real  work.  If  the  bit  variable 
has  a  size  of  one  bit,  then  it  can  be  translated  into 
boolean  variable,  and  the  bit  literals  of  '1*  and  ’O'  can  !'< 
translated  into  the  boolean  literals  TKUt  and  FALSI',  • 
respectively.  However,  if  the  bit  variable  is  larger  tna.i 
one  bit,  then  the  translation  must  create  an  abstract  d<it  » 
type  that  will  allow  the  bit  literals  to  be  transLiti'.: 
easily.  Also  required  during  translation  of  bit  literals  i- 
consideration  of  the  bead  size.  Tne  size  of  ;  b:' 

literal  refers  to  the  weight  of  each  character  :  i. 
literal  string  such  that  a  bead  si^e  of  To  indie  it  es  t L  r. 
the  string  represents  a  hexaJecirjdl  value.  Ti'ic  v^Iid  hv  i  i 
sizes  range  from  one  to  sixteen.  In  other  /JorJs,  lUv  octi’ 
bit  literal  3B'24'  is  equivalent  to  t’ne  binary  bit  litei'il 
IB'010100'  and  some  convention*  of  translating  the  bL* 
literals  must  be  established  depending  upon  t'ne  specit':>' 
data  structure  used  to  implement  t'ne  bit  variables. 

The  translation  of  parameter  lists  for  subrjutines  will 
also  be  a  serious  problem.  In  J7i,  the  typing  of 
parameters  occurs  during  the  processing  of  the  declarations 
in  the  <subroutine-body> .  However,  Ada  requires  t’nat  t/'u- 
type  of  the  parameters  be  included  in  the  parameter  list. 
Therefore,  translation  of  parameter  lists  will  require  tiu 
generation  of  new  type  declarations  from  the  declarat i  o.s 
that  are  "hidden"  further  down  the  parse  tree,  so  that  t’.* 
type  names  can  be  used  in  the  parameter  lists.  Declare:: 
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of  some  of  the  data  items  will  also  require  generaLion  o: 
new  type  declarations,  for  example  floating  and  fixed  tia:  ; 
items . 


Other  items  that  are  not  directly  translatable  are  t'n.c^ 
directives.  Some  of  them  will  translate  to  equivalent  AJ.: 
pragmas  but  others  have  no  counterpart  in  Ada.  For  example, 
the  COPY  directive  corresponds  to  the  INCLUDE  pragma  but  the 
register  directives  have  no  equivalent  pragmas  in  Ad. a. 

One  additional  experience  gained  by  the  author  .;a.s 
the  use  of  J73.  Although  experienced  with  several  othL*r 
block  structured  languages,  J73  still  presented  sone  ru* v 
experiences,  especially  since  the  language  and  compiler  aim* 
still  evolving.  However,  J73  was  an  enjoyable  lan^via^e  t-) 
v7ork  with;  the  only  real  problem  encountered  wa.s  the  lack  of 
execution  time  error  diagnostics,  which  sometimes  made  tn./ 
debugging  process  difficult. 

A  project  of  this  magnitude  very  often  leaves  rooir.  f-)r 
future  work,  and  several  areas  have  been  identified  a,- 
candidates  for  continued  development  efforts.  These 

recommendations  are  listed  below. 

1.  Modify  JATS  to  translate  J73  as  defined  in 
MIL-STD-1 589B .  The  current  version  translates  MlL-STD-1 5S9A 
and  the  B  version  was  released  too  late  to  be  includeti  in 
this  research  project.  Howe^'er,  JATS  was  designed  to  all)w 
a  redefinition  of  the  input  grammar  without  -riajor 
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modifications  to  JATS,  It  snould  be  noted  that  the  source 
code  for  JATS  itself  currently  conforms  to  MIL-STD- 1 539 b . 

2.  Complete  the  translation  module.  As  currently 
implemented,  JATS  is  incomplete  and  cannot  translate  all  of 
J73.  The  addition  of  the  remaining  translation  routine.s: 
will  allow  JATS  to  automatically  translate  more  of  the  J7j 
syntax.  JATS  was  designed  to  allow  the  addition  of  the 
missing  translation  routines . 

3.  Add  the  capability  to  process  external  files  s' 
that  COMPOOL  and  COPY  directives  car'i  be  used  in  th^*  d7j 
program.  Tnis  will  re^^uire  the  cons  true  l  io!i  of  tne 

table  for  the  declarations  that  are  con  t ci  i n e in  c n c'  c o n o ' '  ^ 
module,  and  scanning  of  the  external  file  for  tnc  COi’i 
directive . 

4.  Improve  the  translation  process  by  making  i: 
interactive  and  allov;  the  user  to  identify  sections  of  e')d. 
that  require  manual  translation.  This  /;ould  be  possi'i'Io 
using  the  currently  available  SKIP,  BhCIN,  an.i  K'k; 
directives.  Then  JATS  could  allow  the  user  to  specify  the 
translated  code  interactively  for  the  identified  code  i 
for  any  difficulties  that  the  translator  may  encount<ir. 

This  research  project  incorporated  the  use  of  varii^us 
techniaues  in  several  topic  areas  and  resulted  in  ci 
challenging  and  rewarding  experience  for  the  author.  The 
author  hopes  that  this  project  will  generate  continuf  : 
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interest  in  the  subject  areas  ot  Ada  and  autv.> 
translator  systems • 
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Appendix  4 


LR :  Autorna t Ic  Parser  Generator  and  LR(1  )_  Parser 

*'LR  is  a  pair  of  prograras-*-an  auto’-natic  parser 
generator  and  an  LR(1)  parser.  The  parser  generator 
reads  a  context-free  grarnmar  in  a  modified 
format  and  produces  tables  which  describe  an  LK(1) 
parsing  automaton.  The  parser  is  a  suite  i'):. 
subroutines  which  interprete  the  tables  to  construct 
a  parse  of  an  input  stream  supplied  by  a  (locally 
written)  lexical  analyzer.  The  entire  system  may  be 
used  to  generate  parsers  for  compilers,  utility 
routines,  command  interpreters,  and  the  lixe,  Lm 
and  its  predecessors  have  been  in  use  at  Lawrence 
Livermore  [National]  Laboratory  (LL[N]L)  for  tcii 
years.  LR’s  outstanding  characteristic  is  the 
witn  which  new  tables  can  be  generated  to  reflect  i 
change  In  the  language  to  be  parsed.  Inis 

flexibility  is  prized  by  p r o g r am.t e r  s  c r  i  t  L  i _ 
utilities  and  command  interpreters  whose  input 
languages  typically  grow  and  change  durin^,  progioi'- 
deve lopmen L  •  LK  is  written  entirely  in  /die', 
standard  FORT.RAN  66  and  requires  only  t:inor  chaopt  — 
when  mo v e  J  to  a  new  computer"  (Ref  1  i;  :  1  )  . 


LR  was  an  important  part  of  the  J.VIu  softw 
development.  Major  Michael  Wirtci  has  bee'i  ins  t  ru  ten  t 
promoting  the  use  of  LR  in  the  development  of  co’tpiler^ 
interpreters  at  AFIT,  A  com.plete  unde  r  s  t  and  inp  of 
requires  knov-;ledge  of  formal  language  theory  but  is 
required  to  use  the  package.  However,  for  tiie  interes 
reader,  an  understanding  of  the  data  structures  used  in 
parser  tables  is  helpful  in  unders  tanding  the  ipars 
process . 


The  parsing  tables  produced  by  LRS  consist  of 
collection  of  arrays,  FORTRAN  dimensioned  variables ,  t 
contain  the  control  information  for  the  finite  st 
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autorna ton  which  performs  Che  parsing. 


The  vocabulary  of  the  langua^^e  is  described  using  two 
arrays,  V  and  VOC.  V  contains  a  contiguous  stream  o: 

character  strings  which  are  the  vocabulary  elements.  VUc 
contains  pointers  into  V  to  identify  the  start  of  t  ic 
vocabulary  string  that  has  the  token  number  which  is  fu- 
index  into  VOC.  Figure  9  illustrates  this  relationsl^ip  and 
shows  that  tiie  token  number  for  the  reserved  v;ord  PKOCKAM  i 
133. 


Fig  9.  Vocabulary  Data  Struct'ire 


The  transition  data  is  contained  in  three  arrays:  FlKh', 
TRAN,  and  ENT.  FIKN  contains  pointers  into  TRAA  which 
contains  a  set  of  state  numbers  for  possible  transitions. 
ENT  contains  the  token  number  of  the  required  lookalieid 
symbol  for  a  transition  to  t’nat  state.  Figure  10 
illustrates  this  structure.  Thus,  for  a  given  state,  S,  a 
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The  reduction  data  is  contained  in  seven  arri/s:  FKL.), 
NSFI,  LSET,  LS,  PROD,  LHS ,  and  LEN.  LS  and  LSET  define  t’u 
lookahead  sets  where  LS  contains  the  lookahead  sets  as  a 
contiguous  array  of  integers,  representing  the  token 
numbers,  and  LSET  identifies  the  beginning  of  each  lookahead 
set.  Therefore,  each  lookahead  set  can  be  identified  by  it^ 
index  into  LSET.  NSET  contains  collections  of  lookahead  set. 
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numbers  and  FRED  contains  pointers  int-  wnio:'!  ine’i 

the  collection  of  lookahead  sets  ^hich  apply  for  the  ^ 
reduction.  If  one  of  the  lookahead  sets  of  the  given  st 
S,  contains  the  current  token,  PROD(S)  contains  the  lang 
production  number  tha  t  will  be  used  to  perform 
reduction.  Figure  11  illustrates  this  rela t ionship . 


K  K+i 


Fig  11.  Reduction  Data  Structure 

Thus,  for  a  given  state  S,  FRED  identifies,  through  NSET 
LSET ,  which  lookahead  sets  must  be  checked  to  allow 
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reduction  in  PROD  to  be  useu  basea  on  t.\c  carivi:  .i,;  • 

current  lookahead  symbol.  The  remaining  two  arrays  cvniii'. 
the  reduction  information.  LEN  contains  the  length  o:  :  n 
righthand  side  of  the  production  and  LHS  contains  the  toru  . 
number  of  the  symbol  on  tne  lefthand  side  of  the  producti.vi.  * 
When  the  reduction  is  performed,  LEN  will  indicate  the 
number  of  elements  that  will  be  popped  ofi  of  the  stacks  *i  ;  : 
LHS  contains  the  token  number  that  will  be  pushed  ont  >  t'u 
token  s  tack . 

Note,  these  data  structures  are  producev^.  .;i’.  ;  l  .> 
FORTRAi^  66  option  for  table  structure  auvi  vrere  ret.;i'U  -:  .  i 

JATS  in  order  to  use  the  same  par^in^  alj^nritn’c-  t.iit 
supplied  in  PRS. 

Hov;cver,  before  a  con^lete  set  of  parser  tabl^:-; 
generated  several  changes  were  regaimel  to  all^v.'  L:-.  • 
accept  the  large  J7d  gram.Viar.  Tnesc  changes  . 

increasing  the  sizes  of  some  of  the  dim.ens  toned  varii:’’.  ; 
and  other  related  variables.  The  string  stv)rage  f.>r  I'u 
input  grammar  was  limited  by  the  dimens  i^)n  of  SSTORE  and,  rde 
value  of  MAXSST.  To  allow  for  the  large  nird^er  >; 
productions,  the  value  of  MXPROD  and  the  dimens  i  do  of 


had  to  be  increased 

.  A1 
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respectively,  and  the  values  of  M.AXKK;)  and 
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respectively.  Other  dimensioned  variables  uscn  :  .  i 
grammar  analysis  that  had  to  be  increased  in  sice 
BASIS,  NEXT,  ITEM,  and  PRODC!^.  Tnese  changes  are  sumrnari.: 
in  table  III . 


TABLE  Ul. 
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convenience.  Another  sabroaline,  called  was  ad! 

which  created  separate  outpai  liLes  for  t  ie  p.irser  t-ibl 
and  grammar  analysis.  This  change  regal reO  thiV  ill  cal 
to  OUTPUT  witl'iin  subroutines  TAnLEL’  ana  HLDDMP  be  cbiaiige.i 
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J7 3  Lanp,ua,t;e  Produc t ions 


The  following  list  is  the  lan^uai^e  productions 
output  from  the  grammar  analysis  of  LKS .  Those  product!, 
that  have  been  translated  are  preceeded  by  an  aster  is,; , 


1  <SYSTh:M  GOaL  SYMB0L>  :;==  END  <COM?L£TE-PROGR  \.i>  END 
*2  <COMPLETE-PROGRAM>  : ;=  <MODULE> 

*3  /  <complete-progra:''>  <mudl'l.-;> 

*4  <MODULE>  : :=  <CGMPOOL-MODULE> 

*3  /  <PROC-MODCLE> 

*6  /  <;iAIN-PROGRA.d-MODL'LE> 

7  <COMPOOL-MOUGL£>  ;:=  START  <COMPOu'm'D- COMPOOn) 

<COMPOOL-DEG-LIST>  <CO:iPOL’N.  - Ir.A 

8  /  START  <compoi:nd-compjol>  > 

<COMPOUN’D-TER‘'> 

*9  <COMPOUND-COi’'lPOOL>  ;  :=  GOMPOOL 

*10  /  <DiREGTLVE>  <COMP JL'ND- G uN!’  s/.N' 

11  <PROG-MODUL£>  ;:=  START  <DEG-LIST'> 

<  N  0  N  -  N  E  S  T  £  D  -  S  U  B  -  L I  S  r  >  <  G  t !  P  D  G  ,N'  D  -  I  :  ■  .  G 

12  /  START  <NON-:'IEST£U-S'GB-L!  S  1/ 

<GGIMP0UND-TER-1.> 

*13  <NON-NEST£D-SUB-LIST>  :  ;=  <NON-NEST£U- SG D -■ 

*14  /  <NON-NES  rr:D-SGB-LIG.  r  > 

<NON-NEST£!)-SGH> 


15  <NON-NEST£D-SUB>  DEF  <SUB-DEF> 

*16  /  <SUB-DEF> 


*17  <MAIN-PROGR.AM-MODGLE> 

::=  START  <COMPOUND- PROGRAM>  <N.A;1E>  ;  <COMPOGN-J- BDD 
<NON- NESTED- S'JB- LI ST>  <COMPOU;.’D- ThKND 


*18 


START  <compound-progr.a:i>  <na:ie> 
<compognd-ter:-i> 


<COMPOUND-BQl) 


*19  /  START  <GOMPOUNU-PROGRA;1>  <NAME>  ;  <STMTy 

<NON-NESTED-SUB-LIST>  <C0MP0UND-TERM> 

*20  /  START  <COMPOUND-PROGRAM>  <NA:1E>  ;  <ST>:T> 

<COMPOUND-TEkM> 


52 


r 


*21  <COMPOUND-PROGRAM>  :;=  PROGRAM 

*22  /  <DIRECT1VE>  <COMPOUNO-PK'JGK  V‘. 


*23  <COMPOUND-BODY>  ::=  <PRUGRAM- BODY> 

*24  /  <DIRECT1VE>  <COMPOU:iD- BODY  > 


*25  <COMPOUND-TEKM>  ;;=  TERM 

*26  /  <DIRECT1VE>  <COMF JL';.’D-TLK:-;> 


*27  <PROGRAM-BODY> 

::=  BEGIN  <DEC-LIST>  <STMT-LIST>  <Bi: 3- DE F- El  Y  1  ' 
<DIRECT-COMPOUND-END> 

*28  /  BEGIN  <DEC-LIST>  <3TMT-LI  ST  ><D1  REC  U- CUM?  l 

*29  /  BEGIN  <STMr-LIST>  <SUB-DEF-LI ST> 

<DIRECT-COMPOUND-END> 


*30  <DIRECT-COMPOUND-END>  ; ;=  <COMPOUND- END > 

*31  /  <DlRECrLVE> 

<Di  KECT- COMP  JC.ID- LEE.' 


32  <INTEGER-MACH1NE-PARAMETEk> 

:  ;  = 

33 

/ 

b  1  r  b  i  A  u  K  0 

34 

/ 

LOCSLN.;Ur.:) 

35 

/ 

BYTESINCOr.D 

36 

/ 

B1  TS  I  N  HJL  .s  I'lcK 

37 

/ 

FLOArPKCCisLu:; 

38 

/ 

FlXEDPKEvlL  S  1 ' ):. 

39 

/ 

FLCJATK/yD  I  X 

40 

/ 

IMPLFEUatpklvDislo:; 

(  < FORM” LA >  ) 

41 

/ 

implfixbdpkeIXLaIu):;  ; 
FO R Mi L  L A  >  ,  X  F U  K !  IJ  L  \ 

42 

/ 

IMP  LI  NTS  12.". 

(  <F'jL:;'JL.  ‘. '  } 

43 

/ 

floatpk LSI' 

44 

/ 

yjw  v  F  L  \  R 1)  P  K  F  V  A  S  I  0 ! » 

45 

f 

‘‘lAXixrsixr: 

46 

/ 

47 

/ 

48 

/ 

MAXI  Nr  (  <FOK*:rj.-A.>  ) 

49 

/ 

MINI  Nr  (  <FOK:r:LA.>  ) 

50 

/ 

rLA>:sTup 

51 

/ 

MiNsruP 

52 

/ 

S I  '■j  iJ  I  A  i  is 

53 

/ 

MINSIZF  (  <FOKMALA> 

54 

/ 

Ml N FRAN r:  3N 
(  <FORMULA>  ) 

55 

/ 

MINSCALF  (  <FOKM'JLA> 

56 

/ 

MINKELPKECISION 

(  <fokmula>  ) 

5  7  <  FLOATI NG - MACril N  E - P A R AME T  E  K  ^ 
MAXFLOAT  (  <FORME'LA>  ) 
58  /  MINFLOAT  (  <FORMULA>  ) 
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f 


54 

/  FLOATRELPRECISION  (  <FORnL'LA>  ) 

60 

/  FLOATUNDERFLOV.’  (  <FORMULA>  ) 

61 

<fixed-machine-para:fetek> 

:  ;=  PLYXFIXED  (  <FORMULA>  , 

< FORMULAS 

) 

62 

/  MINFIXEI)  (  <FORMULA>  , 

< FORMULAS 

) 

*63 

<DEC-LIST>  :  :=  <DEC-L1ST>  sDEO 

*64 

/  <DEC- LISTS  <Nu’ 

LL-8TMT> 

<DE>:> 

*65 

/  <null-st:':t>  <dec> 

*66 

/  <DEC> 

*67 

<DEC>  ::=  <DATA-DEC> 

*63 

/  <TYPE-DEC> 

*69 

/  <SUb-DEL> 

*70 

/  <STMr-NA;iE-DEL> 

71 

/  <Dr:FIk’E-L'EL> 

72 

/  <extek:lal-del> 

73 

/  <0VEKLAY-0EL> 

*7^4 

/  <1NL1NE-0EC> 

*7:) 

/  BEOi:;  <DEC-LIST>  l;! 

*7o 

/  <D1  RECTI  VE>  <Dr:C> 

77 

car-iPOOL-DEC-Lis r >  ;  ;=  <c,'-':p>) 

Ol-I)::;:-  l: 

S  ’  \  ' 

78 

/  IC;’  J 

79 

<COMPOOL-DEC>  ;  ;=  <EX  0 

60 

/  XCD'L-  i  :  -  J 

:l  : ' 

81 

/  <TVPE-Dr:C' 

82 

/  <DEFl.ln-D:.L: 

> 

S3 

/  <OVL:kLAY-DE 

' '  > 

84 

/  CFELL.-ST'-.i  > 

8  5 

/  BECL.C  <C'JMP 

I T''  r  * 

8o 

/  <01  kEAlTl  2E^ 

-  !  )  *•  '  ^ 

*57 

<DATA-DEC>  ;  ;=  <1  TrOF- D:! 

*5S 

/  <TABLE-DK  :> 

*69 

/  <COCbTA:;  i'- DEC  ' 

*90 

/  <BLOCK-OEi;> 

*91 

<ITEM-DEC>  ;;=  ITEM  <NaME>  <.\ 

o:; 

<iTEM-TYFt:-Dr:bCKi  pr;  j:;  ■ 
<i  TEM- PKh,SP:T- OP  r  10,; , 


*92  <ITEM-TYPE-DESCRiPTIO:^> 

*93 

*94 

*95 

*96 

*97 

*93 

*99 


:=  <lN’rEOEK-lT.-,'''.-DESCKl  Pl'I 

/  <FL  J.VriNO-ITr-P-'.-DESCkl  Pr 
/  <FiXKij-i TrO'-DESCKL Prio:; 

/  <Bi  I'-i  rEY-DESCRi prio:;> 

/  <CHARACrEK-I FEM- 

DEscki  pii'j:;  > 
/  <STArL'S-lTEM-DESCki  ?  11 ') 

/  <pol:;tek-i  rPY-DEscKi  pr; 

/  <1 TEY-TYPE-:;.-'.:';.^ 


*1  00  <lNTEGEk-iTb;M-DESCRlPTLO.,'> 


=  <S-OK-'J> 

<R0L';'.'0-  Ok-  TKL'  ;>OA  F'rl^ 
<FORM’JLA> 

*101  /  <s-0R-L’>  <fokml;la> 

*102  /  <S-OR-U> 

*103  /  <S-OR-L'> 

<  R  0  U  R’  0  -  0  R  -  T  R  U  R  C  A  T  R  > 

*104  <S-OK-i;>  S 
*105  /  U 


1 06  <FL0AT1NG-ITEM-DESCRIPT10R> 

107 
*108 
*1  09 


;  :=  F  <ROUR’0-0.':-TRl'N’C  \ 
<FUKMVLA> 

/  F  <IFOR:'.FLA^ 

/  F 

/  F  <RJURI)-Or.-TRl':-;C.\ 


*110  <ROUND-OR-TRUMCATr:>  ;  ;  =  ,  k 
*111  /  ,  T 


1 1 2  <fi>:ed-item-drsckiptiu:;> 

1  13 
1  1  4 
1  1  3 


:=  A  “C ROL’ R D- Oa- T nF A ' 

<  F  A  F  L  A  >  ,  <  F '  j  F  , . 

/  A  <fokmfla>  ,  <F'a-f;f,. 

/  A  <F'JRFFFF.A> 

/  A  < RO'JRlJ- OK- 1  \F ' 

<  FO  R!-'FF  LA  > 


116  <BIT-LTEM-DFSLaIPTI  JF>  ;  ;  =  B  <FJa-FFLA> 

*117  /  B 

*118  <CHARACTEK-ITF-'-OLSCRI  ?T10R>  :  ;  =  C  <FJK:;FLA> 
*119  .  C 


120  <STATUS-rrr>'-OFSCKI  PriOAF  ST.'^TFS  <I  RTA.-'r.K- L!  TL 

(  <sr.-ir  s-L]  a;  ^  ; 

121  /  ST/-.r"s  (  <sTAr 'a-l:  A 

122  <ST.-VrLS-LIST>  <SlATFS-CO::bTAN  !'> 

123  /  <F0K;;JLA>  <STATL8-C0::STAAi  ^ 

124  /  <STArUS-LIST>  ,  <STAn:s-CO;;A  1.44 1 

125  /  <STATL'S-LIS  r>  ,  <FOR;'FFLA> 

<8TArFS-CON8TANT> 

126  <STATUS-C0RSTA!':T>  ;  ;=  V  (  <SrArF’b>  ) 

127  <STATUS>  ; :=  CIAALF 

128  /  <LrR> 

129  /  <RESERVED-WORD> 

130  <P0LRTEK-1  rE:-l-DESCKlPTIOI1>  ;  ;=  P  <TYPE-NAME> 

131  /  P 

132  <TAbLE-Db:C>  ;  ;  =  TABLE  <!1A:TE>  <ALL0CAT10N-SPEC1  FI 

<D1MERSL0N’-LIST'>  <TABLF,- DESCk  I  P  I  1  .) 


5  5 


<TABLc;-DESCKlFTiU:',,--  ::=  <STRUCTUKi>SPL;C1  FI 

<ENTKV-SPt;CIFli:;K> 

/  <ENTRY-SPEC1FLEK> 

/  <TABLE-TYPE-NAME>  , 

/  <TABLE-TYPE-NA:ii:> 
<TABLE-PRESET>  ; 

<ENTRY-SPECIFIEk>  ;;=  <0RDINARY-ENTRY-SPEC1  FL  E.K 

/  <SPEC1 FI ED-ENTRY-BPECl FL  E; 


<dime;.ision-list> 


/  <D1MENSL0R-L1ST-HEA.)  ■  ) 


<DIMENSI0N-L1ST-HEAD>  ;  (  <DLMENS I  ORA 

/  <DIME.\'S10R-EI  S  r-  '-i:-:  \ 
<D1MERSL0:;'> 


<D1MENS10M> 


;=  <LOWEK-30'JR’D>  <P'ok:';::. \ 
/  < FORME LA > 

/  '< 


<Lov;Ek-BOu;,'L)>  :  ;=  <for::lla>  : 

<RrKL:CTL'RE-SPECl  FLER>  ;:=  PaRAL.'.r. 

/  T  <1010 
/  T  <FlA\C 
'  T  <ra.-l; 
/'  1 


<OkDINARY-ERTRY-SPEOIFL  l■:K> 

:  ■■=  <PACKrRG-SPEOIFL -.KA  <ITEM-TVP£- LAO-. '--A  t’ :  *  ■) 
<TABLF-PRESET>  ; 

/  <packirg-speoiflor:>  <i iem-typl-ol ,'A>  ;  rA  .  > 
/  <irEM-TYPE-DEscKiPT.  j;;>  <tab;o-:-pr  ::a;  ;  •  , 

/  <i  rr;.-i-TYPE-DESCRiPrio;;A  ; 

/  <IABLF-PRESET>  ;  <0RD1  RAi-A'-TAiA,- - > 

/  ;  <ORDINARY-TABLE-300YA 

/  <PAGRING-SPEC1FLEK>  ATnaLF-PPL^O I >  ; 

<0RD1 NARY -TABLE- BO DY> 

/  <PACK1NG-SPECLFI::;k>  ;  <0KD1  N.ARY-TAhl.K- 


<PACK1NG-SPEC1 FLER>  ;;=  N 

/  M 
/  0 

<OKDINARY-TABLE-BODY>  :  ;=  <ORDI  NArA’ -  TA  nL  I  I' :■  M- i 

/  BENIN  <ok:)IN'aky-tab;aa 

OPT  IONS- LI  ST >  : 


<0RD1  NARY -TABLE- ITEM- DEO 

:  :=  ITEM  <NAME>  <1 TEM- TY PE- DES Gk O 1 1  ■  )N > 
<PACK1NG-SPECIFIER>  <TABLE-PKESErA  ; 
/  ITEM  <NAME>  <ITEM-TYPE-DESCKl  P  1 1  ON.' 
<PACK1NG-SPEGIFLEK>  ; 


/  i  ir>l  <NAM£>  <ir£'^i-TYPt-Jr;SCKl?T10:;  > 
<TABLE-PRESET>  ; 

/  ITEM  <NAME>  <I  fEM-TYFE- DESCkl  P  I  LON’>  ; 

<ORDI. MARY- TABLE- OPTIONS- LI ST> 

: ;=  <ORDINARY-TABL£-OFrLOMS-LlST^ 
<ORDIMARY-TABLE-OPTIOMS> 

/  <0RDIMARY-TABLE-0PT10MS> 

<ORDINARY-TABLE-OPT:OMi>  ; :=  <0KD1MARY-TABLK-I' 

/  <D1 RECTI VE> 

/  <NL’LL-ST';r'' 

<SPECIFLED-ENTRY-SPECI FIEK> 

: ;=  <WORDS-PEK-EMTRY>  <SPECI FL ED- 1 rEY- OESCRI i 
<TABLE-PRESr:  r>  ; 

/  <WORDS-PEk-EMTRY>  <SPEC1  FL  ED- :  TEY- Dr.SC^  1  • 
/  <WOKDS-PEK-EMTKY>  <TABLE-PRESE  r.>  ; 

<SPEC1  FLE'J-TABLE-BODYY 
/  <WOKDS-PER-ENTRY>  ;  <SPEC1  FL  ED-TAnLE- B  DC) 

<W0RDS-PER-EMTRY>  ;:=  W  <1  N  IEYEk- LITEr-.Y.D 

/  W  EFCYCTLOC-CALED 


TEY-D:-. 


<SPECLFL  ED-ITEM-DESCk:  PI  Id;:''- 

;:=  <ITEY-TYPE-DESC.-;I  PTIO;.';^  PJS 
(  <L0CAT10N-SPECI  FLiIr.  >  ) 

<L0CAT10W-SPECL  FL  ;  :  =  <START1  DO- SI  1  '  ,  <FDrD 

<STARTIM0-BIT>  ::=  <FDK:TCLA> 


<SPEC1  FI  ED-TABLE-B01)Y>  :  :=  <SPECi  FI  ED- -LI-.Y-Dr 

BEvIl'I  YSPECYFLED-I.'-.rE."'- 

oPii  >  I  >  e. 


< S  P  E  C 1  F L  E D-  T  A BL  E  - 1  T  E'-l-  D  il  C  > 

;  :=  ITEM  <NAME>  <SPECL  FL  ED- L  lEY- DESCKI  P  1 1  DC'' 
<TABLE-PRESET>  ; 

/  ITEM  <NAME>  <SPEC1  F^ED-ITEY-DESC^I  P  II  '  ; 

<SPECI FI ED-TABLE-OPTIOMS- LI ST> 

: :=  <SPECIFlED-TABLE-OPriONS-LISr> 
<SPECLFLED-TABLE-OPTIO[lS> 

/  <SPEClFLED-TABLE-OPTLO;:S> 

<SPECIFIED-TABLE-OPTIONS>  :;=  <SPEC1  FL  ED-TABLE-ITE'' 

DEO 

/  <D1RECTLVE> 

/  <Ml'LE-st:-;j -> 
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*196  <COMSTANT-DEC> 

;;=  CONSTANT  ITEM  <NAiME>  <ITEM-TYP£-DESCRI  P 
<FOKMULA>  ; 

197  /  CONSTANT  TABLE  <NAME>  <D1MENSI0N-LI ST> 

<TABLE-DESCRIPTION> 

198  <BLO('.E-DEC> 

:;=  BLOCK  <N.AME>  <ALLOCATION-SPECI  FI  Ek>  ; 
<BLOCK- BODY-PART> 

199  /  BLOCK  <NAME>  <ALL0CAT10N-SPECi  Fi  Er.> 

<BLOCK-TYPE-NAME>  <BLOCK-PRESET>  ; 

200  <BLOCK- body-party  ; ;=  <NULL-STMr> 

20 1  /  <DATA-DEC> 

202  /  BEGI.n!  <BLOCK-BODY-OPri,) 

END 


203  < BLOC K- BO DY - OPT I  ON S - L I ST> 

204 


:  :=  <BLOCK-BODY-OPr 
<B10X:K-B0DY-0Pr 
/  <r.LOCK-BO:)Y-OPr 


205  <BLOCK-BODY-oPTio:;s:'  :  :=  <da:a-dff> 

200  /  <0VERLAY-DF; 

207  /  <DiKEL'i'L2-.  •> 

20S  /  <NFL!--ST  ';r  > 


*209  <AL1,OCATLON-SP£CI  FL  E 
210 

*21  1  <lTE:-I-PKESEr-OPriON> 
2  1  2 

213  <TABLr:-PRES.-;  r>  ;  :=  = 

214  /  = 

215  <NL’LL-PkESE  :■> 

216  <TABLE-PK':,SEr-LIST> 
21  7 


0,>  ;  ;  = 

;  STaPIC 

/  =  <FOrv-p;LA> 

<T.\BLF-PRL^rAi- L;  F  1  ■> 
C'.'Fi.l.-PKESF,  ;  > 

:  ;=  <defa'2;a-p^::f:; r-s;-:,..; 

/  <CO''li’O'JN0- PR ES F  i'-SY.'A, 


213  <DEFAliLT-PRESi:r-SUBL[Sr> 

::=  <FORM'OLA> 

219  /  <  R  E  P  E  AT  E  D  -  P  R  E  S  E  T  -  V  A  L  P  E  S  -  0  P  r  I  0 : ; '  ■ 

220  /  <DEFAULT-PRESEr-SU3LIST-HLAi)>  <FjK.;:  L\' 

221  /  <DEFAULT-PRLSET-SUBLISI-HE.-\:)>  CL.EJ.-PRL 

222  /  <DKFAl!LT-PRESEr-SL’BLLST-H2A'0> 

<REP EATED- PRESET- VALOES-OP  r  1 


223  <DEFALJLr-PRESi:r-SUBLISr-HEAu> 

.;=  <PRESET-VALUES-0PT10N>  , 

224  /  <DEFAULT-PRESET-SL’BLISI-HE.2:)> 

<PKESEr-VALi;ES-0PTION>  , 
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225  <COMPOUNU- PR ES 2T- S U BL I S  !  > 

:  :=  <COMPOUND-PRESET-SUBLISr-HEAD>  <FjR;';:LA> 

226  /  <COMPOUNU-PRESET-SUBLIsr-HEAD>  <NULL- PKEB., .  > 

227  /  <COMPOUND-PRESET-SUBLIST-HEAD> 

<REPEAT£D-PRESET-VALUES-OPrLO:':> 

228  <COMPOE’ND-PRESEr-SUBLIST-HEAP> 

:  :=  <DEFAL’LT-PRESET-SUBLI  ST- HEAD> 
<?RESET-INDEX-SPECLFLi- K',> 

229  /  <PRESET-1NDEX-SPEC1FL  Ek:> 

230  /  <COMPOL’i\’D-Pk£SEr-SUBLISr-rtE.A:)'> 

<  P  K  E  S  E  r  -  V  A  L  u  E  S  -  0  P  T 1 J : ;  >  , 

231  /  <COMPOUNL)-PRESEr-SL’BLIST-HEA')  ^ 

<preset-i;nDEX-speci  fi  r;r;;> 

232  <PKCSEr-IXDEX-SPE21  FI  EkF  ;  =  <PKES  rFf- 1  X’JFX- S  F  _  J I  FI 

HE/.r)>  )  : 

233  <PKESr:T-IiN’DEX-SPE2I  FL  Ek-HE.FOF 

:  :  POb  (  X  FO  K'FJ  L.-.  > 

234  /  <PRESr:r-i;NDEX-SPE'bI  FL  ;AF-Hi.A:r>  , 


235  <PKESFr-VAlA’r;S-OP:A  ):;  •  ::  = 

23b  <F'JK:'.',A./-.  ' 

237  Arepeai':::;- PF3-:; ; - 


233  <  R E P  E  A I r: :  Pk  E  b  1' - AL  2  E  b  -  OP  . A  ;  i : ;  > 

;:=  <kEPEi  ;  riON-LIS  r-llEA.O>  <FO-P-:.A.Ab  ) 

239  /  <REPE  r:  TLOX-LI  ST-HE.\0  '  CAP E E- P b E.AE  ;  •  ) 

240  '  kPEPb'C  rLON-EISr-Hb.*>:''' 

\  R  b  P  E  A  I  rP '  -  P  K  E  S  E  T  - .E  E  P  r.  S  -  0  P  T  *  .J !  >  ■  ) 

2-41  <KEPEP;  riOE'-EI  S  r-HbAPV> 

:  ;=  <I  :;:bPr:K-EI  TER.-XP>  ( 

242  /  <bEPE:i  iLOX-EIS  r-Ht:4D>  <PK„b  E  ;  -  APE  P -b  -  C  AE  E 

243  <  BLOCK- Pb E.' P  b  ;:  = 

24b  '  =  XBL.CK-P’b^bPl-E:  b  P  > 

*245  <TYFE-.\PV'E  >  ::=  <11  EM- PYPtP- .'AE.  E-.  > 

*24b  /  <ta»le-type-.\ee::e> 

*247  /  <FEOCK-TYPt::-:AE,ErA> 

*248  <TYPE-:)EC>  :;=  < J  I ;PI- TY P E- D.b .P  > 

*249  /  <T;EHPC-TYP[P-OE(;> 

*250  /  <BH>v.r;-TYFE-OEP'> 

*251  <ITEM-TYPE-DEC>  :;=  TYPE  <PAA''Pb'> C  IMP-'.- TY  C- OESCKI  PT 
252  <TABLE-TYPE-DEC>  ::=  TYPE  <;A-E,;E>  PEB’PiP 

SPtPAL  i'L  r-r.  ' 


<’!  ArtEE-TYPiP 


253  <TABLE-TY?b:-SP2CIFLh:K> 

;  ■.=  <DiMENBlON-LIST>  <STkUC T JRE- SPECI  l-'L 
<LIKC-OPTION>  <EN’TRY-SPE'J1  PI  l-.K  > 

234  /  <DIMENSH)N-LIST>  <S TRL'CTURE-SPECI  PI  Pk> 

<E:n'KY-SPECIFlEK> 

255  /  <DIMENSI0N-L1ST>  <L1KE-0P  11 .3N’>  <ENT.-<Y-SPEC1  PI 

256  /  <D1MENSL0M-LIST>  <ENTRY-PPE^'l  - 1  :•>:> 

257  /  <DIMEN'bI3N-LIST>  <rABLE-TYPL-.\.V'.:-;  ^  , 

258  <L1KE-0PT10.\'>  ;;=  LIKE  < TAbuE-TYPE-KA:'.:;  ' 

259  <BLOCK-TYPE-DEC>  ::=  TYPE  <;\’A:;P  >  -jL  KA:  •, -A,  a:K- bA.) Y - 

PA  K  r  > 

260  KSTMT-NAME-DEO  ::=  KSTAT-N’AAP-DEA-H'.a:;  ■>  , 

261  <STMT-NAME-DEC-HEAD>  ;  ;  =  LAbE..  <\'A.'.:.  > 

2o2  /  <S  r.'-M'- EE E- H  A  ■  ,  <KAA:. 

263  <DEFIKE-DEC>  DEFLAA-;  <.\’a:E’,:>  EEEE-P.-.:.:  > 

26^  <Dr:F-P;^K:>  ;  <F0R- 'A1-- DE  FI  E  P.^TvA:  IE  2  E I  S  I  ■ 

OPTi  JEF  <EH;.r;A 'rEE-p::-.:  ;  ■  '  , 

265  A  E'O  IE  LIo  -  DE  Pi  K  tl- PA  EA.'EE  *  ".a-.,!  S  i'  > 

266  /  <FUKMAL-DEFiAr.-PAKA,-;E:'-.n-L:  S  ) 

26  7  <  FO  K : -LA L  -  D  E  F 1  N  E  -  P  A  RIE-! E  7'  K  -  L I  S  I  -  H  u.  > )  6 
; : =  (  <LTk> 

268  /  AFORMAL-DEFIN’E-PAR/./EETEK-LI  Sr-HL'E.A  .  AE:--' 


/  LISTEXP 
/  LISTIA’V 
/  LISibOTA 

27  3  A  EXT  E  blLAL- DE'EA  :  :=  ADEP-SP;A6,^ 

2  74  /  AREF-SPuE.' 

275  ADEF-SPEO  ;  ;=  ASiMPLE-DEE> 

2  76  /  AC0MP0'j:rj-DEF:> 

277  ASIMPLE-DEP'>  ;  ;=  DEF  ADEF-SPEl-CHU1CE> 

278  AC0MP0UND-DEF>  DEF  BEGIN’  ADE  F- SPE  G- CHO I G  E- LI  S  I  >  r. 

279  ADEF-SPEC-CriULCE-LlST>  :;=  ADEF-SPEC-CHOICE-LIS  I’X 

ADEF-SPEG-CHOICE> 

280  /  ADEF-SPEG-CHOICE> 

281  ADEF-SPEC-CHOICE>  : :=  ANULL-STXTG 

282  /  ADATA-DEC> 

283  /  ADEF-BLOCK-INSTANTIATIO,-; - 


269  ALi  s  i-op no:':" 

270 
27  1 


60 


I 


*308 

*309 

*310 
*31  1 

*312 

*313 

*314 


/  <STMr-NA/.:.-D8C> 

/  <DIRECT1VE>  <DEF-SPEC-CHOlC:-..> 

<DEF-BLOCK-INSTANTIATiOK>  :  ;=  BLOCK  INSTANCE  KNAAE'-  , 

<REF-SPEC>  ; ;=  <S1MPLE-REF> 

/  <COMPOUi.’D-REF> 

<S1MPLE-REF>  ;  ;=  REF  <kEF-SPEC-CH01Cr-;^ 

<COMPOU:iD-REF>  ::=  REF  BEGIN  <REF-SPEC-Cri01  Ct-LI  F  f  >  E: 

<REF-SPEC-CH0ICE-L1ST>  ;;=  <REr-SPEC-CHOICE-LI ST> 

<REF-SPEC-CHOICE> 

/  KREF-SPEC-CriUlCEF 

<REF-SPEC-CHOLCE>  :;=  <NULL-ST:-ir> 

/  <DATA-DEC> 

/  <SEB-DEC> 

/  <D1RECTLVE>  <REF-SPEl;-CF,);  > 

<OVE:<I.AY-:3EC>  :;=  OVERLAY  <ABFOL:’Tl.-AO;JiLE>'-  ' 

KOVERLAY-EXPRESSlOO  ; 

<ABFOLL'Tn;-ADOREFB>  ;  :  = 

/  PJ;-  (  ■(  F‘J  R! ^  I^A  5'  )  ; 

<  0  V  E  R  L  A  Y  -  E  X  P  R  E  F  S  1 0 : ;  > 

;  :=  <0VERLAY-S  i'Kl  NGF 

/  <OVERLAY-EXPRESSlON3>  •.  <0VERI.AY-STR1  :L;  > 

<OVERLAY-STKINC;> 

:  ;=  <OVERLAY-ELFME\’i'> 

/  koverlay-strlno  ,  <overlay-ele:-:ll :  ^ 

<OVEKLAY-ELEMER'T>  ;  ;=  (SPACEkX 

/  <N.-V'1E> 

/  (  <OVERljAY-EXPREL^  1-03L’  ) 

<SPACER>  ;  :=  VJ  <F'JRMULA> 

<SUB-DEC>  ; :=  <PR0C-DEC> 

/  <FUNCTIOM-DEC> 

<SUB-DEF-LIST>  : :=  <SUB-0EF> 

/  <SUB-D£F-LISr'>  <8JB-Dr:F> 

<SUB-DEF>  : ;=  <PR0C-DEF> 

/  <FUNCTLON-DEF> 

/  <DIKECTLVE>  <SIJB-DEF> 


*315  <PR0C-DEC>  <PROC-HEADLNG>  ;  <DEC> 

*316  <PR0C-DEF>  ::=  <PROC-HEADING>  ;  <C0MP0UN0- B0i)Y> 


61 


*317  /  <PROC-HEADLNJ>  ,  <ST.-'.i> 

*318  <PROC-HEADING>  : PROC  <NAME>  <SUB-ATTRI BUTE> 

<  FO  R:1AL  -  P  A  R.\;-1E  T  EK-L1ST> 

*319  <SUB-ATTRIBUTE>  ; ;= 

*320  /  REG 

*321  /  RENT 

*322  <FUNCTION-DEC>  :  :=  <FUNCT1  ON-HEADI NG^  ;  vDEO 

*323  <FUNCTION-DEF>  :  ;=  <FUNCTION-HEADING>  ;  <i:nNPJL’:;D- BO 

*324  /  <FUNCTION-HEADING>  ;  > 

*325  <FUNCTLON-HEADING>  ::=  PROC  <NA.1E>  <SU  B-ATTKI  BE  I > 

<  FO  K>L4L  -  PA  RAM  E  T  E  K  -  L I  S  T  > 
<ITEM-T'iPE-DESGRl  PliU  ;  > 

*326  < FO RMAL-  PAR.4:4ET  E  R-  LI  S  T > 

327  /  (  :  <FOR:-L\L-IO-PARAMETr:K-LI '^r>  ) 

328  /  (  <F0RM^L-10-PARAMETr:K-LIS  I  >  ; 

<  FO  R  MA  L  - 1 0  -  P  A  R/G-IE  T  E  K  -  L I  S  T  >  ) 

329  /  (  <FORMAL-IO-PAKAMETr:K-LISr>  ) 

330  <  FO  RMAL  - 1 0 -  PA  k.V-lE T  K  R -  L 1  S  T  > 

;  :=  <F0RMuAl.-10-PAR.\METr:R-LIB  r'>  ,  CN.V.'L'^ 

331  /  <NAML> 

*332  <INLINE-DEG>  ; :=  <I NLI N t- DEG- Hl A J ^  ; 

*333  <INLINE-DEG-HEAD>  ;  : =  INLINE  < SU b- NA: L. > 

*334  /  <INLINE-DEG-H:IA.)>  ,  AS.' B- N.'E L,  ' 

*3  35  <SUB-NAME>  ;  :=  <PROG- LAbKl.- NA! :E> 

*3  30  /  <NAME:-:> 

*337  <STMT-LIST>  ::=  <STMT-LIST>  <SrMr> 

*338  /  <sTMr-LiST>  <nl:ll-stmt'>  <sr.;r> 

*339  /  <NULL-STMT>  <SrMr> 

*340  /  <STMT> 

*341  <STMT>  ; :=  <BALANCED- STMT> 

*342  /  <UNBALANCED-STMT> 

*343  <BALANCED-STMT>  ; :=  <BALANCED> 

*344  /  <DIRECTIVE>  <BALANGEi)-SrMr,> 

*345  <UNBALANCED-ST>1T>  :  :=  <UNBALANCE:)  > 

*346  /  <DIRECTIVE>  <UNBALANCED-STMT:> 

*347  <UNBALANCED>  : :=  <LABEL>  <UNBALANCED> 

*348  /  <UNBALANCED-IF-bTMr> 

*349  /  <UNBALANCEU-FOR-STMr> 
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*350 


/  <UNBALANCEJ-;JH11J>ST‘;]  > 


*351  <BALANCED>  :;=  <LABEL>  <3ALA:;CEU> 

*352 

/  <ASSIGNMENT-ST:-ir>  ; 

*353 

/  <BALANCED- FOR- STMT > 

*354 

/  <  BALANCE  0-  vJH  1  L  E -  S  TMT  > 

*355 

/  <BALANCEO-IF-STMI> 

*356 

/  <CASE-STMT> 

*357 

/  <PROC-CALL-STMT> 

*358 

/  <RETURN-STMr>  ; 

*359 

/  <GOTO-STMT>  ; 

*360 

/  <EX1T-STMT>  ; 

361 

/  <STOP-STMI>  ; 

362 

/  <ABORT-STMr>  ; 

*363 

/  BEGIN  <STMr-LISr>  <DI 

*364  <NULL-STMT>  : ; 

*365  /  BEGIN’  <U0'1F0ENL)-E:E)-^ 


*366  <COMPOUND-END/  ; :=  ENO 

*367  /  <LAHi:L>  <CO’'PJE:A)-E:;.:  ■ 


*368  <LABi:L>  :=  <PKOC- LABEL- NAM;,  > 


*369  <ASSIGNMENT-STMT>  ;;=  <TAKM 1  -  L 1  ST  ^  =  <E.\P:<.,MS.  .M 

370  <TARGET-LIST>  :;=  <TAKGE  1- LI  ST  >  ,  <TAK>T  > 

*371  /  <TARGEr/ 

*3  72  <TAKGET>  •.  ;=  <LHS,> 

*373  /  <PRUC-LABEL-NAM;.,> 

374  <BALANCEO-FOR-SrMT>  =  <FuK- GLAl’,'.  E  >  •AiAL/G;:;-;;)-.^  I, 

375  /  <FOK-BY>  <BALA:;GE:)-SrMi,> 

376  /  <FUK-THE:T,>  <BAL.\MLE:)-ST.-li 

3  7  7  < UN BAL AN C E U -  FO K -  S T.MI > 

: ;=  <FOR-CLAUSE>  <UNBALANCE J-STMi  > 

378  /  <FOR-BY>  <UNBALANCEL- STTi  > 

379  /  <F0R-THEN;>  <UNBALAr]CEI)-STMr,> 


380  <FOR-CLAUSE>  ;  :=  <IN1T1AL>  <SAF;l> 

381  /  <IN1TLAL>  <WH1  LE- PHRAS E  >  <SAF;L,^ 


382 

383 

384 


<FOR-BY> 

;;=  <IN1TIAL> 
/  <lNirLAL> 
/  <1N1TLAL> 


<BY-PHRASE>  <SAFf.> 

<  BY  -  PH  R.\S  E  >  <  WH 1  L  £  -  P  H  R/^S  i-:  > 
<WHI LE- PHRAS E>  < BY- PHRAS E> 


<SAFE> 

<SAFE> 


385 

386 

387 


<FOR-THEN> 

::=  <1NITIAL>  <THEN-PHRASE>  <SAF£> 

/  <INiriAL>  <THEN-PHRASE'>  <WH1  Le-PHR.\SE>  <SAFi 
/  <IN1TLAL>  <WHIL£-PHRASE>  <THEN- PHRASE>  <SAF: 
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388  <1NIT1AL>  :  ;=  FOK  <NAME>  ;  <EXFt<t:ES LON> 

389  /  FOR  <LTR>  ;  <EXPR£SSIOX> 


390  <BY-PHKASE>  BY  <EXPR£SS10N> 

391  <THEN-PHRASE>  ;:=  THEN  <£XFKESSION> 

392  <WHILE-PHRASE>  ::=  WHILE  < BRANCH- FALSF.> 

*393  <BRANCH-FALSE>  ; <BI T- FORMULA> 

*394  <BALANCED-'.ffllLE-ST;lT>  ;  <WHlLE-CLAi:^f:  > 

<  BALANCED- ST>:T> 

*395  <UNBALANC>:D-WH1LE-STMT>  <WHlLE-CLAr.SE> 

\  U  N  B  A  L  A  N  C  E  D  -  5  r 

*396  CWHILE-CLAUSL;  •.  ;=  WHILE  <BKANCH- FALHE'> 

*397  <SAFE>  ; ; 

398  /  ;  ISAFii  ; 

*399  <BALANCEU-lF-ST.’;r>  ;  ;  =  <1F-FRLF:a.>  <!iAL.A:L: 

*400  <UNBALANCE:!)-LF-ST.-;T>  ;:=  <IF-CLALSE>  <HT -A 
*401  /  <1 F-PREFIO  <F;.BA 

402  <iF-PREFix>  ; <if-cla:s':>  <bala:;cli)-st.'A 

*403  <IF-CLAUSE>  IF  <BKA. CCH- FALSER  ; 

*404  <CASE-ST;'!r>  ;  ;=  <CASE-BOOV>  <CGMP JEN'O- EX.-  ■ 

*405  <CASE-BODY>  <CASE-CLAl\^:E  >  ^CASE-CHO :  Cr: 

*406  /  <CASE-BUDV>  <CASE- CH'J  L  C-.  ' 

*407  <CAS£-CLAL!SK'>  :  •,  =  CASE  <EXFKES.S ;  BXv,. 

*408  <CASE-CH01CE>  :  ;=  <CASr:-ALr>  ;  XST'A  / 

409  /  <CASE-ALr>  •.  <ST.-ir>  FALX 

*410  <CASE-ALT>  :  ;=  (  <CASE-INDEX-GKOL'i’>  ) 

*411  /  (  DEFACLl'  ) 

*412  <CASE-1NDEX-GR0'JP> 

<CASE-1NDEX> 

*413  /  <CASE-1NDEX-GR0L'F>  ,  <CASE-LN0i:/X> 

*414  <CASE-tNDEX>  ; <EXPRESSI0N> 

*415  /  <EXPHESS10N>  :  <EXPKESSLO 

416  <PKOC-CALL-STMT> 

;  <1NV0CAT10N>  ABORT  <PROC-LABEL-NA;;;;> 
*417  /  <INV0CAT10N>  ; 


*418  <INVOCATION> 

*419 

*420 


<OUTPUT-LIST>  ) 

/  <INPUT-LlSr>  ) 

/  <PK0C-LABEL-NAM;:> 


*421  <INPUT-LIST>  :  :=  <CALL-PREF1X>  <I ;;PL'T-PAK.-:> 
*422  /  <INPOr-LIST>  ,  <1  XPl' ^ -PAR.X> 

*423  <OUTPUT-LIST>  :  :=  <IWPUT-L1ST>  ;  Ol’TP  J i  - FAR^'O 
*424  /  <CALL-PREF1X>  ;  OL'TFJI-PAR:; 

*425  /  <0UTPUT-L.IST>  ,  XO'JTP J  1- PA;.. 

*426  <CALL-PREFiX>  ;  ;  =  <PR0C- LA biC!.- Na:-!;-: ^  ( 

*427  <input-par:-i>  ;;=  <EXPK:' AS ' o::;> 


*428  <0L'TPUT-PAR.-1>  ;  :=  <LHS> 

*429  <RETURN-ST;'1T>  ;;=  RETLk;; 

*430  <G0T0-STMT>  ;  ;  =  GOTO  <FK0u- LABEL- NA  '.L 


*431  <EXlT-SrMT>  ELi  I 

432  <3T0P-STMT>  : :=  STu? 

433  /  STOP  <Fon.LL;./.. ' 

434  <A60KT-SrMrL  ; :=  AbOKT 


*435  <F0R:-rL]LA>  ;  <F0K-;ULA>  +  <ThK:;  ’ 
*436  /  <F0K:'roLA>  -  <Tot\.;/ 

*-437  /  +  <ToR’;> 

*43S  /  -  <TER-T> 

*439  /  <TEK'L-> 

*440  <TEKM>  ::=  <ThR-l>  *  <FACrOK> 

*441  /  <T/-.KX>  /  <FACTOK> 

*442  /  <TEkM>  mod  <  Fag  Tor./ 

*443  /  <FACT0k> 


*444  <FACTUK>  :  ;  =  <FACTOR>  **  <PRLM.Ai\Y> 
*445  /  <pkl:tary> 


*446  <PKi:lAkY> 

*447 

*448 

*449 

*450 

*451 

*452 

*453 

*454 

455 

456 


=  <lNTEGEK-LITEkAL> 

/  <R£AL-L1TERAL> 

/  <bIT-LITEKAL> 

/  <CriAKACTEK-Ll TOBAL/ 

/  <BOOLEAN-LITEhA;.> 

/  <poi;iter-litek,lg> 

/  <na:ie:)-vakiable> 

/  <LErTEK/ 

/  <FUNCrL0X-CA'.:.> 

/  <  1 N  T  EG  E  k  -  M\  C  ri  1 : 1 E  -  P  A  RAM  F,  ’T  L  k  / 

/  <FLUAT1NG-MACH1  GE-PAkAME  T-Ik/ 
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457 

*458 

459 


/  <  FI  X  E  D-  MACH  I N  E  -  P  ARAMET  E  K  ,> 

/  (  <EXPRESSION>  ) 

/  <CONVERSION>  (  <EXPRESS10X>  ) 


*460 

<BIT-FORMULA>  : : 

=  < AND -FORMULA) 

*461 

/  <OR-FOR:rJLA) 

*462 

/  <XOK- FORMULA) 

*463 

/  <EQV- FORMULA) 

*464 

/  <BIT-PRIMARY) 

*465 

/  NOT  <BIT-PR1MARY) 

*466 

<BIT-PRIMARY>  : : 

=  <RELAT10NAL-EXPRESSL0::) 

*467 

/  <FOkMULA) 

*468 

<AND-FORMULA>  : : 

=  <BIT-PRI.MARY)  AND  <B1T-PRIM-^ 

■'4  69 

/  <AND- FORMULA)  AND  <BIT-PR1.L. 

*470 

<OR-FORMULA>  : := 

<BIT-PR1MARY>  OK  <BI  f- Pkl  .-LLkV 

*471 

/ 

<OK-FOKMULA)  OR  <BIT-PKi.-lA:'A-> 

*472 

<XOR- FORMULA)  ; : 

=  <B1T-PK1:-1ARY)  XOR  <81  T- PRl 

*4  73 

/  <XOR-FOKMULA)  < 8I  1- P.Kl  .-ll 

474 

<EgV- FORMULA)  : : 

=  <BLT-PRl;i4KY>  EQV  <81  1- PaI  .I.'-. 

475 

/  <E(^v-fok:iula>  E'^v  <^1  i-prli-. 

*476 

<RELAT10NAL-EXFR 

ESS  LON) 

::=  <FORMULA) 

<  R  E  l  A  T 1 0  N  A  L  -  0  P  E  R  r  0 1- V  <  F  ■  j  r: : ; ' ' ; .  ■ . 

*477 

<EXPRESS10N>  : : = 

<BIT-F0R:I'JLA> 

*478 

<NAMr:u-VARIABLE) 

:  ;  =  <SU  BSCKI  P  !'>  ) 

*4  79 

/  <NA.ii:> 

480 

/  <SUBSCKlPr>  )  <PJLNl:'.r.  > 

481 

/  CLAMiE)  <P'JlNl'r.r;,' 

482 

/  <POINTEK) 

*483 

<L^^)  : :=  <LETrE 

k) 

*  ,84 

/  A 

*485 

/  B 

*486 

/  c 

*487 

/  D 

*488 

/  F 

*489 

/  M 

*490 

/  N 

*491 

/  P 

*492 

/  K 

*493 

/  8 

*  4  9  4 

/  T 

*495 

/  u 

*496 

/  V 

*497 

/  w 

498 

<POLnTEK)  <NAMi:) 

6'-. 


499 


^  <F0RI-1ULA>  ) 


*500  <SUBSCRIPT>  ::=  <PREFIX>  <FORMULA> 

*501  /  <SUBSCRIPT>  ,  <FOR;-1L"lA> 

*502  <PREFIX>  <N.A.''IE>  ( 

503  /  <POINTER>  ( 

*504  <LHS>  ::=  <NiV'lED-VARI ABLE> 

505  /  <PSEL’DO-VARIABEE> 

506  <PSEUDO-VARIAKLE> 

::=  BIT  (  <TARGET>  ,  <FORMULA>  .  <FOR:-l'JLA>  ) 

507  /  BYTE  (  <TARGET>  ,  <FORML'LA>  ,  <FOrC-lULA^  ) 

50B  /  REP  (  <NAMED-VARIABLE>  ) 

*509  <FUNCTiON-CALL>  ::=  <1  NVOCATl ON'> 

510  /  <iNrKiNSic-F'j:';cTio:>:-CALL> 


51  1  <INrRINSIC-FUNCT10N-CALL> 

512 

51  3 

514 

515 

516 

517 

518 

519 

520 

521 


:=  <LOC-FL':iGrnj:;> 

/  <NEXT-FUN’CTLO:;:> 

/  <BL  i'-FL’NCTLO:^ 

/  <BYTE-FL':':crLo:;:> 

/  <SHiF'i-FJXijrio,;:> 

/  <ABS-FUi\crLo:;> 

/  <SlG:i-F'JNGrLOG> 

/  <SlZt->F'JGGrLO:.'> 

/  <BOu:rjb-F'jNciLo:;> 

/  <NXDbE:i-F'JNcrLo:;  • 

/  <STATUS-INVt:; kSE-FEEGn  A. 


522  <LOG-FU:N’Gri'JN^  LOG  (  <NAAE1)-VAkI  ABLF>  ) 

523  <NEXT-FE:'lCriOAA  :  :=  NEXT  (  <FOR:'iULA>  ,  <FjK:X'LA."  ) 

524  <BIT-Fb'NCTLa;N> 

::=  BIT  (  <EXPREBSLON>  ,  <FUR:;'JLA>  ,  <  FUK: '  L.'  '  ) 

525  <BYTE-FUNCTiO;;:> 

::=  BYTE  (  <FOR:ibLA>  ,  <FUK:1L’LA>  ,  <FURMULA>  ) 


526  <SHIFT-FL'NCTLOG> 

::=  <SHIFT-DIRECT10N>  (  <EXPRESSION>  ,  <FOK:rJLA>  ) 


527  <SHIFT-DIRECTLO:'1>  ::=  SHIFIL 

528  /  SHI  FIR 


529  <ABS-FUNGTLON>  ABS  (  <FORMULA>  ) 

530  <SIGM-F'>JNCT10H^  ::=  SGN  (  <FOR:Tl;LA>  ) 

531  <S1ZE-FUNCT10:':>  :  :=  <S1ZE-TYPE>  (  <FORMULA>  ) 

532  /  <S1ZE-TYPE>  (  <TYPE-NAME>  ) 
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<Si^£-TYPE> 


;=  ElTSLz.;:. 

/  BYTESlZe 
/  WORDSIZE 


536  <BOUtJDS-FUNCTION> 

:  :=  <lffllCH-BOUND>  (  <NA:'1E>  ,  <FUKML’LA'>  ) 

537  <WHICH-BOUND>  :  ;=  LBOU^FJ 

538  /  UBOEND 

539  <NWDSEN-FUNCTi01';>  :  ;=  NWDSEN  (  <N.A;1E>  ) 

540  /  NWDSEN’  (  <TABLE-TYPE-N.i:;r.>  ) 

541  <STATUS-IMVEkSE-FU:'!CTION> 

::=  FIRST  (  <STATUS-IMVERSE-ARGljME;:  1  ^  ) 

542  /  LAST  (  <STATUS-IMVEKSE-ARGL’Mr:;;i  >  ) 

543  <STATUS-INVERSE-ARGUMENT'>  <FOR;TGLA> 

544  /  <1  rEM-TYPii-N;-.;'..,  ' 


<C0NVEKS10G> 


:=  (*  <ITEM-TYPE-DESGK1  Pil  3: 
/  <TYPt::-MA:ir;> 

/  REP 
/  B 
/  C 
/  F 
/  P 
/  S 

/  u 


554  <NAME-LIST> 

555 


;=  <NAMr:> 

/  <n.a:ie-list> 


<RESERVEy-WOKD> 


A  h  0  K 1 
ABS 

BlGLN 
Bi  r 

BITSIZh: 

BLOCK 

BY 

BYTK 

BYTLSIZC 
CASK 
COMPOOL 
CONSTAN r 
DEF 

DEFAULT 

DEFINL 

ELSE 

END 

EQV 

FALLTHkC 

FALSE 


577 

/ 

FIRST 

578 

/ 

FOR 

579 

/ 

GOTO 

580 

/ 

IF 

581 

/ 

INLINE 

582 

/ 

INSTANCE 

583 

/ 

ITEM 

584 

/ 

LABEL 

585 

/ 

LAST 

586 

/ 

LBOUND 

587 

/ 

LIKE 

588 

/ 

LOG 

589 

/ 

MOD 

590 

/ 

NEXT 

591 

/ 

NOT 

592 

/ 

NULL 

593 

/ 

nwdse:v 

594 

/ 

OR 

595 

/ 

OVERLAY 

596 

/ 

PARALLEL 

597 

/ 

POS 

598 

/ 

PROC 

599 

/ 

PROGRA;: 

600 

/ 

REC 

601 

/ 

KEF 

60? 

/ 

REN  I 

603 

/ 

REP 

604 

/ 

retuk:; 

605 

/ 

SGN 

606 

/ 

SHI FTL 

607 

/ 

S  H 1  F  r 

608 

/ 

START 

609 

/ 

STATIC 

610 

/ 

STATUS 

61  1 

/ 

STOP 

612 

/ 

TAEL  E 

613 

/ 

TERM 

614 

/ 

THr::: 

615 

/ 

TRUE 

616 

/ 

ubou:;d 

617 

/ 

WHILE 

618 

/ 

words: 

619 

/ 

XOK 

*620  <RELATIONAL-OPEKATOk> 
*621 
*622 
*623 
*62A 
*625 


/  <> 
/  < 

/  > 

/  <= 
/  >  = 


626  <BIT-LITEKAL>  <I NTEGEK- LI TEKAL>  B 

<CHARACTEK-LlTEKn;.> 


1 
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J 


*627  <BOOLEAN-LITERAL> 
*628 


TK’Jr. 

FALSE 


*629  <POINTER-LITERAL>  ::=  NULL 


630  <DIRECTIVE> 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 
64d 

646 

647 

648 


:=  <COMPOOL-DIRECTlVE> 

/  <COPY-DIRECTIVE> 

/  <SK1P-DIRECT1V£> 

/  <BEGIN-DIRECTLV£> 

/  <END-DIRECTIVE> 

/  <LINKAGE-DIRECTIVL> 

/  <TRACE-D1R£CT1VE> 

/  <1NTERF£RENCE- DIRECTIVES 
/  <REDUClBLh:-DlRECTLV£> 

/  <NULIST-DIRECTLVl> 

/  <LIST-DIRECTLVE> 

/  <EJECr-DlRECTLVE> 

/  <BASE-DIR£CTLV£> 

/  <ISBASE-DIRECTlVrL> 

/  <DROP-DIRECTLVE> 

/  <LE FT RI GHT-  DI K £CT  I V  > 

/  <REARRANGE-DIR£CTLVl> 

/  <INLTLALIZ£-DlRECrLVr.> 

/  <ORDER- DIRECTIVES 


649  <COMPOOL-DIRECTIVE> 

:;=  I COMPOOL  <compool-dir£ct:  Vt;-:.:-. I  >  , 

650  <C0MP00L-D1RECTIVE-LISTS 

651  /  <COMPOOL-F1L£-NAIL:S  <C-JMPOOL.-Dr.C;.\E 

652  /  <compuol-declared-:l-c'.e-li  s  r  > 

653  /  (  ) 

6  54  /  (  <compuol-fil£-na:l;>  ; 


655  <compool-declared-n;eie-lis  I  > 

:  ;=  <COMPOOL- declared- :1AMES 

656  /  <C0MP00L-DECLARED-;Lv;"1£-LIS  r  > 

<COMPOOL- DECLARED- NA.'ES 


657 

658 

659 

660 
661 
662 


<compool-declared-n;v:ies  :  ;=  claaes 

/  <TYP£-NAALS 
/  <PROC-LABEL-L’ 

/  (  <tyf£-n'a;;::  > 

/  (  <PROC-LAhi:i, 

/  (  <na.:e>  ) 


663  <COMPOOL-FLLE-N.\:iES  :;=  <CHARAC  IEk- LI  IKKA 

664  <C0PY-D1RECTIVES  ;:=  ICOPY  VCHaRACTtK- LI  T 


665  <SK1P-D1RECTIVE>  ::=  ISKIP  ; 

666  /!SKIP<  LT  ^  > 


667  <BEG1N-DIRECT1VE>  ::=  !3EG1,\’  ; 

668  /  1  BEGIN  <LrK>  ; 

669  <END-DIKECTIVE>  ; ;=  lENU  ; 

670  <LINKAGE-DIRECTIVE>  ILINKAGE  <SYMB0L-LI ST^  ; 

671  <TRACE-DIRECTIVE> 

:  ;=  I  TRACE  (  <FORMULA>  )  <NA;1E-LIST>  ; 

6  72  /  1  TRACE  <NAME-LIST> 

673  <INTERFERENCE-DIRECTIVE> 

;;=  [INTERFERENCE  <INTERF£RENCE-CONTRO;,>  ; 

674  <INTERF£RENCE-CONTROL> 

: :=  <NAME>  ;  <NAME> 

67  5  /  <INTERFER£NCE-CONTROL>  , 

676  <REDUCIBLE-DIRECT1VE>  IREDCCIBLE  ; 

677  <N0LIST-DIRECT1VE>  INOLISI'  ; 

678  <LIST-DIRECriVE>  :  ■.  =  ILIST  ; 

679  <EJECr-DlRECnVE>  ;:=  lEJECl'  ; 

680  <BASE-D1RECTLVE>  ;  ;  =  !  BASE  <NA:E;>  <lNrECER-:,ITBr..-C..>  ; 

681  <I  S  BAS E -  D I  R E CT L  V E >  :  :  =  !  I  S  BAS  E  < N A.' !E ><  1  N  1' EC  K k -  L I  T E R;-. E  >  , 

682  <DROP-DIRECTLVE>  :  =  [DROP  <1NTEGER- LrrEKA:;>  , 

6S3  RLEFI'RIGKT-DIRECr: 'VE>  ILEFlAiCHE  ; 

684  <REARRANCE-OIkECTIVE>  :;=  [REARRANCb  ; 

685  <1NLTIALIZE-DIRECTIVE>  ; ; =  [INIILALIEE  ; 

686  <ORDER-DlRECrLV'ER  •  :=  iOKDEr.  ; 
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Appendix  ^ 


System  Maintenance  Guide 

This  appendix  describes  the  structure  and  or^anizaci). 
of  JATS.  The  purpose  of  this  appendix  is  to  provide  tu 
necessary  information  to  the  maintenance  programmer  to  ali  o.- 
modification  of  the  system.  The  overall  syste*::  will 
briefly  described  followed  by  a  system  structure  chart, 
description  of  each  subroutine,  and  a  list  of  system  err  )L' 
s  tatements , 

JATS  uses  the  LR  parser  generator  syste’.:  t  .)  cj^^struef  a 
parse  tree  of  the  input  J7d  source  pro^r-im.  TnLs  parsL.-  tin.  i 
is  then  translated  so  that  it  represents  an  e:;  ui't  a  1  e':  t  Ad  . 
source  program.  Finally,  tiie  terminal  n  )v‘es  are  ouip:' 
using  a  prettyprint  for-uat.  The  structure  of  JATS  cnci 
therefore  be  grouped  into  t’nree  f  ur’ic  t  iona  1  modruie-: 
(1)  parser  module,  (2)  t  r.i’is  1  a  :  i  >  v:  m,)d.ule,  an.: 

(3)  prettyprint  module. 

Tne  parser  module  was  designevi  fr.j:  the  LK  ])ars^'r 
generator  system  and  the  parsing  algorithms  were  taoc  : 
directly  from  LR .  Appendix  A  contains  a  brief  descripti»Mi 
of  LR  and  the  data  structures  tiuit  sutiport  tlie  parsin^ 
algorithms.  There  is  one  modi  f  ica  t  iori  to  the  parsia.; 
routines  to  accommodate  the  J73  grammar.  During  the  parsi:\^ 
loop,  a  check  is  made  in  certain  states  of  the  parser  to  se: 
a  flag  which  indicates  whether  t’ne  parser  is  processi  g^ 


executable 


scatenents  or 


uecLarations.  'ims  is 

within  the  scanner  to  return  the  correct  token  dnri.  n 
scanning  of  <nanne>s.  The  major  additions  to  the  parser  .ir^ 
the  scanner  and  the  semantic  processor.  The  scanner  reitir 
the  tokens  of  the  input  stream  to  the  parser.  It  consi-t -  * 
of  a  number  of  subroutines  which  will  be  discusse.:  later. 
The  semantic  processor  constructs  the  parse  tree  durin^  t 
reduction  processes  r  The  subroutines  t’nat  sui^port  t’.u^ 

semiantic  processor  will  be  discussed  later.  One  other  arv  . 
of  interest  is  the  use  of  a  "hecip"  for  dynaru.;  Hll^c-itio-i 
the  nodes  and  elements  ot  the  tree. 

The  travislation  module  processes  thie  ]' a:  tree  u- 1  : 

the  lan^uap,e  [jiroduction  numl.^ers  t'nat  vvere  use.:  t)  c  .s  t  r  • 
each  iciternal  node.  kerth  nociny  duri’yp.  the-  tr:':>l:::  •. 

process  is  the  reclamation  and  reallocation  of  iie::p  spat:'. 

A  list  of  availai'>le  heap  space  is  maintained  by  Ii:ta:n_  rh  - 
Spaces  toyet’ner.  Ixodes  of  the  tree  t'lr. :  are  deleted, 
dls^  made  acailahle  for  reallocation  thr  uiyn  linec: 
of  available  nodes  usiny  an  overlayeJ  daL-i  strac  *,  . 

The  prettyprint  module  simply  outputs  t'n.  le 
terminal  nodes,  of  the  parse  tree  and  uses  the  syt.bols  t  ' 
control  the  formattiny  of  the  resultiny  Ada  proyr.ir. 

A  system  structure  chart  is  spread  acr.nss  fiyures  1^, 
13,  and  14.  A  brief  description  of  each  subroutine  f>.)lL:;v;; 
the  system  structure  charts.  Al  s  ^  included.  an 
appendix,  is  table  IV  which  describes  the  po^', iolo  syste 
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JATS 


ADD*  I^QDE ,  Local  to  procedure  TRANSLATE.  UseJ  dur.:^ 
the  translation  process  to  create  a  nev^  teriTiinal  norl- 
consisting  of  the  terminal  symbol  TRKM'CODE,  it  adds  the  nc-: 
element  to  the  current  node.  The  new  eloquent  is  inserie.: 
immediately  after  the  element  pointed  to  by  PTR.  Updai«j< 
the  global  variable  NEXT  *  NODE , 

CHANGE  *  NODE .  Local  to  procedure  TRANSLATE.  Cnan^t. 
the  terminal  symbol  at  the  node  identiflevi  by  the  elei-L-  .* 
pointed  to  by  PTK  to  TEKM’COl^E. 

CHAR  *  STRI  NO .  Local  to  procedure  SCA.W  t'scd  Li  sc  . 
<charac  ter- 1  i  teral>s  during  tne  parsing  process.  r  ’  - 

a  new  element  of  the  termin;l  nod.e  to  idcnrlry  i  .< 
<charac  ter- li  teral> .  Updates  t!ne  varUic. - 

NEXT*STRING  and  STKI NG  (NEXT  S  IkI  .iJ;  .  Ketirns  t'le  t  . 
number  of  <character-literal>  in  SCAN’TOK. 

CHAR  *  VAL .  l.ocal  to  procediUr--'  N'/’LHon.  Functi)n  : 
during  the  process  of  scannin^  nurioj'--  co  retnri  the  ]  .• 
of  the  digit  CH*. 

CQMMKN r .  Local  to  procedure  SCA!^’.  Uscvl  to  sc  iti  a 
comment , 

DEC  *  HEAD .  Global  boolean  function.  Used  during  tne 


parsing 

process 

.  Re  turns 

the  value 

TRUE  if  the 

toke 

IN'TOKEN,  is  the 

start  of  a 

declarati.  ) n . 

If  IN'TOKEN 

i  s 

<name> 

then 

the  global 

CUK*  TOKEN 

is  chanjCii 

to 

<proc  - label -naTne>  . 


DELETE  *  NODE .  Local  to  procedure  TKANSLAi  r. .  I  se  : 
during  translation  to  delete  the  node  element  imnied  i<u  t*  1 / 
following  the  element  identified  Ly  PIK  and 
DELETE  *  SUBTREE  with  the  node  number  at  the  deleted  elemc  . 
Updates  the  global  variable  FREE'PIk. 

DELETE^  SUBTREE  ♦  Local  to  procedure  DELETE  Jr. .  Ini', 
is  a  recursive  procedure  that  deletes  rill  nodes  aiu:  ele^ne-::  ^ 
from  the  parse  tree  as  a  result  of  deleting  the  n.idr. 
NODE'NUMBEK.  Updates  the  global  vaxiahles  m’. 

FREE' PTR. 

DIGI  i «  Local  to  i)rocedure  SEAL'.  !li_.  in  :  ine'.i 

which  returns  the  value  TRUE  if  CH  is  a  di^i:. 

DIRECTIVE .  Local  to  procedure  SC-El.  L'sed.  t  >  so  m 
directives.  Returns  tlie  proper  token  number  in  SC' W' ’  ^ 'jh' . 

DO'  REDUCT .  Clonal  procedure.  Use!  djrln>^  t’u  par->l:p^ 
process  to  perfor'.^  a  reduct  ion  based  on  L:n-  hi  g;  j  ; 
production  PKOD'NU!!.  Calls  SEhoEllC  an<i  p  is!ie<  t’u  n-.-.; 
inf  o  rma  t  itvi  onto  the  parsin^  st.icks.  Updaies  : ’le  gh  n.;! 
variables  STACK' PlK  and  CUR’SIAr:-. 

DO*  TRAC .  Global  procedure.  Used  during  the  i>irsig;. 
process  to  perform  a  trarisition  to  NEW  STATE.  Stactvs  t. he 
current  information  onto  the  parsing  stacks  and  calls  SC'Cl 
for  a  new  CUR’TOKEN.  Updates  the  global  variables  CUK’Sl/\r:. 
and  CUR ’TOKEN. 


DOUBLE '  MARK  *  Local  to  procedure  S'CWl.  CrieCr<.b  i:  i 
curreriL  token  bein^  scanned  might  be  a  double  chariot 
symbol,  such  as  <>♦  Returns  t!ie  correct  token  number 
SCAN*TOK  for  either  case. 

ERROR .  Glotal  procedure.  Used  durin^  the  parsi 
process  to  output  information  regardiiig  the  current  sta: 
of  the  parser  when  a  syntax  error  has  been  detected., 
the  glooal  variable  ERR' FLAG  to  t'ne  value  T:^L’r.  wtiicn  hal 
the  parser  and  translator  syste.n. 

FI  NO '  REDUCT .  Global  proceduT*e.  Functivi  Li‘;ed  dur: 
the  parsing  process  to  find  the  proper  redact  Lon 
based  upon  CSTATh  and  UTORF!.' . 

FI  NUTOK .  Local  to  procedure  SCr^.;,  Used  dirL;^  t 
scanning  of  terminal  symbols.  Uses  TOR’SYMiVo:.  an:  IbhU;:'-: 
match  the  current  symbol  with  tiie  ti^r  ninaL  syr.bols  d  / 
if  a  match  is  found  the  value  of  t.u-  t oKen  nuc!.)'jr 
returned  as  RUT 'VALUE. 

FIND'  TR/\N .  Global  procedure.  Kunctivi  used  viuring  L' 
parsing  process  to  find  the  proper  transition  based  u; 
CSTATE  and  CTOKEN. 

GET '  CHAR .  Local  to  procedure  SUAh'.  Returns  the  nv 

character  of  the  input  stream  as  CH ,  and  echochecks  l’’ 
input  line  images  .  Sets  EOF'  FLAG  and  c  le  ir  s  NEXT'  CtlAR  . 

INI lAL .  Global  procedure.  Initialises  various  g-on, 
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variables  and  data  structures • 


LOOKUP ,  Global  procedure.  Uses  the  global  variable 
SYMBOL  to  find  the  symbol  table  entry  for  the  <naTne>  that,  i- 
contained  in  SYMBOL  with  a  lenv^th  of  SYM’LSNCrh,  a  ^lob.;l 
variable.  If  an  entry  is  found,  ENTKY^PIK  contains  t’le 
pointer  value  of  the  entry  and  FOUUL^  is  TKUE.  It  an  ent*'.- 
is  not  found,  the  symbol  is  entered  in  ti\e  symbol  table  anoi 
ENTKY'PTR  contains  the  pointer  value  of  the  new  entry  and. 
FOUND  is  FALSE.  If  a  new  entry  is  made  t  le  j^lohal  varinbl.. 
NEXT* SYMBOL  is  updated. 

MARK .  Local  to  procedure  SCA!>.  Boolean  function  l  > 

determine  if  the  curreiit  character  of  t:ie  input  stre  et  i  <. 
mark,  or  seperator.  Returns  TRUE  is  t:ie  char  ic  ter* 
mark . 

MOVE  *  P  I  r; .  Local  to  j)rocedure  1;-.  •  Used  vluvi  i 

translation  to  move  the  element  j)oIntur  of  a  nod.c,  PTo,  thi 
number  of  positions  specified  by  vlO'dh.. 

NAI^IE  *  KE^kOKD  .  Local  t  .)  u r  o c e .  1  u r  e  S  C i  -  Used  t  o  s c  x  i 
<name>s  and  reserved  words.  Once  the  symdto'l  ’to  .  beL-u 
scanned,  if  FINDTOK  returns  a  value  0  then  it  is  a  <na:te>. 
Builds  the  global  variable  SYMBOh  and  SY.h  ’  L.EN'h Iri .  Ke:nros 
the  correct  token  number  as  SCAh''TOK.  May  reset  the  glohui 
variable  STMT  *  SCAN ' FLAG . 

NEWP .  Global  procedure.  Function  which  returns  ih- 
next  available  heap  space  pointer  address  ior  a  d-t  s 
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structure  of  the  ^iven  SIZE.  Updates  cl^e  global  varia;'.'!., 
FREE'PTR  or  NEXT' HEAP  as  necessary. 

NUMBER .  Local  to  procedure  SCAN.  Used  to  scan  number^, 
and  returns  the  proper  token  nuinber  as  SCAN*  TOR  a:r: 
constructs  a  node  that  contains  the  value  of  the  appropriate 
literal . 

PRETTY  *  PRINT .  Local  to  procedure  PKINT'ADA.  Used 
output  the  terminal  symbol  contained  in  the  Ler:nlnal  noth. 
PRINT* NODE. 

PRl  NT  ^ADA  .  Global  procedure.  Recursive  } )  r  o c  e  d.  u  '• . 
which  traverses  the  subtrees  of  NODE*NUMbnv  an^i  calls 
PRETTY*PRlNr  when  a  termii'ial  node  is  reached.  Als>  outp:*-. 
warnings  that  certaii'i  sections  of  cade  have  not  bee'i  f.illy 
translated.  Sets  and  resets  the  glooal  varii  I-/ 

LAST ’TRAN*  FLAG . 

PHI  r  *  NODE  .  GLooal  procedure.  Utility  procedure  ih.o 
outputs  the  contents  of  the  node  NODE  ’  NUMr>h.< . 

PRI NT  *  S  TRI NGS .  Glooal  procedure.  Utility  procedur* 
that  outputs  the  <charac  ter- 1  i  tera  I  >s  ’vi.n  been  parsed, 

PRINT  *  SYM*  TAB .  Global  procedure,  U’^  .1  ity  procediure 
that  outputs  the  contents  of  the  symbol  tai^K. 

PRINT  *  TREE .  Global  procedure.  Recursive  proced'ii'e 
that  traverses  the  parse  tree  and  calls  PRINT* NODE  tv)  output 
the  entire  parse  tree. 
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SCAI^ ,  GloDal  procedure.  Scans  the  input  and  ret  nr 
the  token  numbers  as  SCAN 'TOR.  Creates  a  new  terminal  n.) 
each  time  it  is  called  and  updates  the  global  vari.at 
NEXT’ NOUS. 

SEMANTIC .  Global  procedure.  Used  during  the  parsi. 
process  to  construct  a  new  node  based  on  the  lan^u  i 
production  PROD'NuM.  Also  enters  the  SYM’ CLASS  values  i 
the  symbol  table  and  updates  the  global  variadoles  HO  ' 
NEXT’NODE,  and  NEW’ TREE ’ PIH . 

SWAP '  NODES  .  Local  to  procedure  TR/^NSLAro.  Lsedi  dart 
the  translation  process  to  Sw’up  the  two  liode  elemt'ors 
immediately  follow  tlie  el  omen::  pointer  t^i  by  IM  r. .  Plr. 

moved  to  point  to  the  now  elemenL  thdt  t'u  i/ ’  ^  ^ 

that  was  initially  poiiited  to  by  PTa. 

TRANSLATE .  Local  to  procedure  TkAN'TsL:'..  Com  r  >  1  ^  ^ 
translati<)n  process  at  ench  node  TR-\L  AbJ.b'o .  Se:  ^  ’ 
TR  Air  FLAG  for  each  a^..viu  tnat  is  t  runs  l-i  t  e.i  ,  May  crc;*. 
nodes  and  elements. 

TK.AN  ’  TREE  .  Glooal  procedure.  Recursive  t)r  oc  evi  a 
to  traverse  the  parse  tree  during  t  rans  1  a  t  i  >on  . 


Table  IV 


System  Errors 


Error 

Number 

1 

2 

3 


5 

6 


Cause/ Required  Change s 

Parsing  stack  overflow 
Increase  the  value  of  MVv'STACR 

SYM' STORE 'TAB  overflow 

Increase  the  value  of  M-V\’SY:VSrU 

heap  overflow 

Increase  the  value  of  M-uX '  HflAP 
TREE  overf iov; 

Increase  the  value  of  MAX'NODEo 
SIRING  o  G  r  f  I  o  ; 

Increase  the  va  1  i e  of  '  S T x  1  .\\t S 

STRING ’ S Iunl  over  I low 
I  n  c  r  e  a  s  e,  the  v  a  1  u  w  ('>  f 
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Appendix  D 


JATS  User  Guide 

The  purpose  of  this  appendix  is  to  provide  s 
guidance  for  JATS  users.  The  syste::;  itself  is  very  easy 
use;  however,  there  are  several  I imitations  that  the  u 
must  adhere  to  for  JATS  to  work  properly.  As  shov.'n  in  ta 
I,  there  are  several  elements  of  J7d  that  have 
def ini t ions . 

One  otlier  area  that  the  user  must  prey^riin,^ 

translation  is  t'ne  identifiers  or  <na:tc>s  of  th-v- 
program.  As  JATS  is  currently  impl emeti t t;d  ,  hnam-'^vs  th..i' 
to  be  translated  must  not  be  Ada  reserved  ojrfs.  T'le  ot 
limitation  vjith  respect  tv)  <name>s  is  the  use  of  t’le  sin 
quote  within  the  identifiers.  The  use  of  tie  single  qn 
must  conform  to  tile  rules  of  tlie  use  of  the  unvierscv)re 
Ada,  Tnls  requires  t:iat  the  siiiyle  quote  iie  preceedeoi 
followed  by  eitner  a  digit  or  letter  and  the  s  i  :r  h.  t  .jU 
cannot  end  tile  <namie>  .  Also,  the  use  of  I’le  d-'..  ;r  si  jy. 
not  allowed  since  it  does  not  tr  ms  late  to  any  eqilvnl 
element  of  Ada,  These  limitations  can  be  remo\’ed  when  d 
is  modified  to  become  an  interactive  syste:t  to  a'  1  iw 
user  to  rename  an  identifier  when  necessary. 

With  these  limitations  taker;  care  of,  the  J73  pro^, 
can  be  translated  with  JATS,  On  tiie  AFaAL/AA  DeeSystet- 
JATS  can  be  run  witii  the  following  comirand  : 
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.RUN  JATS[5600, 1 1 i] 

name>.<,ext:ension> 


JATS  will  respond  with  an  a.sterisr;  as  a  nra'npt  for  Chc 
name  at  which  time  the  user  should  respond  v;i:n  a  valid 
with  an  extens ion  of  J7 d . 

JATS  will  create  two  uutp.r.  files:  (1) 

(2)  <file  named. ADA.  JATo.LST  ’will  cni^itatn  ^  lis^in  -  r- 
input  program  and  any  ir'iforma  t  ion  riessaj».-s 
generated.  The  second  file  is  the  translated.  o 

program  and  will  have  the  same  v  ile  nam^'  with  <i  :  en: 
of  ADA.  This  file  will  cont.iin  warnin,  lit*::: 

o  o 

sections  of  code  tOat  Wtjrc  ;vot  t  r  aivs  1  a.  1 1.' su: 
will  be  bracketed  by  the  folljwi:;^;  . 


-  -  —  - hllhN  1  - 

THU  CODS  ShTWbbN  Id  IS  BkASKS] 

b  R  A  c  K  L I  .'lA  Y  Nor  b  1 1  S ' _ .1.1  I 


THR  CODR  BETWERN  TKLS  BRACKRi  AND  TriR  PmI;  >d^ 
BRACKET  lUY  NOT  BE  FULLY  T^ANtLM  h) 


■  \\  A  R  i  X  X  .  N  v.-»  - 


JATS  has  been  designed  to  process  large  pr a .^r a!:: 
does  have  some  limitations  o'v  sine.  If  a  message  cenisv 
of  a  JATS  system  error  appe.irs  at  the  tcr  .h'.al  while  d.’, 


S' 


running,  then  one  of  the  size  li'.zi  tHtions  has  been  e\etr 
and  JATS  will  nave  to  be  modified  and  recompiled.  If 
occurs,  notify  the  maintenance  programmer. 

An  example  J7d  program  and  its  translated  version 
inc luded  in  Appendix  E. 


X  AD-AIOO  BBl  AIR  FORCE  INST  OF  TECH  NRI6HT-PATTERSON  AFB  OH  SCHOO— ETC  F/6  9/2 
JOVIAL  <J73)  TO  ADA  TRANSLATOR  SYSTEM. CU) 

DEC  BO  R  L  BROZOVIC 

UNCLASSIFIED  AFIT/6CS/EE/B0D-5  m. 


Appendix  E 


Example  Programs 
J73  Version 


START  PROGRAM  TSTPGM; 

BEGIN 

ITEM  TEST' NAME  C  3; 

ITEM  TEST' FLAG  B  1 ; 

ITEM  TEST' CHAR  C; 

ITEM  TEST 'NUMBER  U  3; 

ITEM  TEST'NUM  S; 

HERE : 

TEST 'NUMBER  =  3; 

CASE  TEST' NUMBER; 

BEGIN 

(DEFAULT)  :  TEST' FLAG  =  FALSE; 
(1  )  •  :  TEST' FLAG  =  TRUE; 

(2:3,5)  :  TEST' FLAG  =  TRUE; 

END 

WHILE  TEST 'NUMBER  =*  3; 

TESTPROC; ; 

IF  TEST' NUMBER  =  5; 

GOTO  HERE; 

PROC  TESTPROC; 

IF  TEST 'FLAG; 

BEGIN 

TEST 'NAME  =  'ABC' ; 

TEST' NUMBER  =  5; 

END 

END 

TERM 
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"wsBsmwm. 


Ada  Version 


PROCEDURE  TSTPGM  IS 

TEST_NAME  :  STRING  (1  . .  3  )  ; 

TEST_FLAG  : 

- WARNING- . 

THE  CODE  BETWEEN  THIS  BRACKET  AND  THE  FOLLOWING 
BRACKET  MAY  NOT  BE  FULLY  TRANSLATED 


B  1 


THE  CODE  BETWEEN  THIS  BRACKET  AND  THE  PREVIOL’S 
BRACKET  MAY  NOT  BE  FULLY  TRANSLATED 

. . - . -WARNING . 

TEST_CHAR  :  STRING  (  1  . .  1  )  ; 

TEST_NUMB£R  :  INTEGER  RANGE  0  . .  2  **  (  3  )  -  1  ; 

T£ST_NUM  :  INTEGER  ; 

PROCEDURE  TESTPROC  IS 
BEGIN 

IF  TEST_FLAG  THEN 

TEST_NAME  :=  "ABC”  ; 

TEST_NUMBER  ;=  5  ; 

END  IF  ; 

END  ; 

BEGIN 

«  HERE  >>  TEST_NUM3EK  :=  3  ; 

CASE  TEST_NUMBER  IS 

WHEN  OTHERS  =>  TEST_FLAG  ;=  FALSE  ; 

WHEN  1  =>  TEST_FLAG  :=  TRUE  ; 

WHEN  2  ..  3  I  5  =>  TEST_FLAG  :=  TRUE  ; 

END  CASE  ; 

WHILE  TEST_NUMBER  =  3  LOOP 
TESTPROC  ; 

END  LOOP  ; 

NULL  ; 

IF  TEST_NUMBER  =  5  THEN 
GOTO  HERE  ; 

END  IF  ; 

END  ; 
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